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21 MEGABYTE 
SCSI 
HARD DISK CARD 


TANDY 1000 » 
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for your 
TANDY 1000 








IMAGINE!!! MDI'S 21 MEGABYTE HARD DISK CARD 

simply plugs into your system and is ready to run! 

The hard disk card also contains a... ——R 
“FREE SCSI PORT": Tandy 1000 

A SCSI port which allows ου to tie (daisy chain) Multifunction Board 

up to seven external (peripheral) devices to your $255 


ter. 
PT M INCLUDED Fñ €€ 


Direct/Assist $4995 





R/Assist $4995 | Ν 
Light Speed $7995 go ri 
SCSIBoard 19000 O 

T «can 


ORDER LINE 800-228-0891 
305-677-8333 κ : 
1 YEAR WARRANTY, 30 DAY MONEY BACK GUARANTEE 


— ο gl ise Des! — Micro Design International, Inc. 


6566 University Boulevard, Winter Park, Florida 32792 305-677-8333 telex 332559 MDII ORLUD 
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Tandy 200 24K $649 
Model 600 32K $1269 
Model 100 24K $425 


DMP-130 $269 


Tandy 3000 $1969 
Tandy 3000 HD $2699 


Color Computer ΙΙ 
wi64K Ext. Basic $165 


Tandy 1000 $685 
Tandy 1000 HD $1539 
Tandy 1200 HD $1599 


DMP-105 $160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 10 Meg. 256K 
Tandy 3000 4 Drive 542K 
Tandy 3000 HD 20 Meg. 512K 
Model IVD 64K with Deskmate 


PRINTERS 

Radio Shack DMP-130 269.00 
Radio Shack DMP-430 660.00 
Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-400 Portable 229.00 
Silver Reed EXP-550P Daisy Wheel229.00 
Star SG-10 245.00 
Star SG-15 410.00 
Star SD-10 365.00 
Panasonic Ρ-1094 259.00 
Panasonic P-1092 339.00 
Toshiba 1340 439.00 
Okidata 192 375.00 
Epson LX-80 245.00 
Epson FX-85 369.00 
Epson HS-80 Portable Ink Jet 339.00 


685.00 
1539.00 
1599.00 
1969.00 
2699.00 

889.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 159.00 
Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 249.00 
256K Ram Board (inc. 128K & DMA)199.00 
512K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 259.00 
PBJ Multi-Function Board (256K) 279.00 
PBJ Multi-Function Board (512K) 299.00 
428K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 429.00 
4200 Baud Modem Board 249.00 
RS-232 Serial Board 89.00 
Digi-Mouse/Clock Board 89.00 
Tandy 1000/1200 MONITORS 
Tandy VM-2 Green Monitor 

Tandy CM-2 RGB Color Monitor 
Tandy CM-4 RGB Color Monitor 
Tandy VM-3 TTL Green Monitor 179.00 
Tandy 1200 Text Monitor Adapt. 219.00 
Tandy 1200 Color/Graphics Adapt240.00 


129.00 
379.00 
249.00 


CALL TOLL FREE 
1-800-343-8124 


e LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 
SHOPPING CONVENIENCE 


P.O. Box 1094 
480 King Street 
Littleton, MA 01460 


MODEMS 

Radio Shack DCM-3 Modem 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 
Hayes Smartmodem Il 300 Baud 169.00 
Hayes Smartmodem 1200 Baud 429.00 
Hayes Smartmodem 1200B 415.00 


FOR EVERYONE 

Network Four Outlet Surge Prot. 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
C-20 Digital Cassette Tapes (10pk) 9.95 
Verbatim SSDD Plastic Box (10pk) 24.95 
Verbatim DDDD Plastic Box (10pk) 29.95 
Precision SSDD Diskettes (10pk) 15.95 
Precision DDDD Diskettes (10pk) 17.95 
NEC 64K Ram Chips (set of 8) 39.00 
NEC 256K Ram Chips (set of 8) 69.00 
Flip N File Disk 50 15.00 
Fanfold CleanEdge Paper (2600) 35.00 


52.00 


69.95 


Radio Shack software 10% off. 
Send for complete listing of 
brand name software and hardware. 


SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 
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Check out the software that completes their systems 


Tandy MS-DOS Software Comparison Chart 


pfs” dBase” filePro 16 
File/Report II Smallware 
GENERAL 
CHARACTERISTICS: 


























































Menu driven no YES | 
Allows user to create integrated programmer 

business systems required YES | 
Developed systems and data can be 

moved to multi-user environments YES dl 





CAPACITIES: 
Fields per record 




















Characters per record 

















Records per file 











Indexes per file 


















Number of digits per numeric field 
















Number of files usable concurrently 













Files span multiple drives 


FEATURES: 


Full-screen facility for creating 
custom screen layouts 
Full-screen facility for creating 
custom report layouts 
Built-in field types 
(error checking) 





































programmer 
required 
programmer 
required 
programmer 
required 
possible 


programmer 
uired 


User-defined field types 









Conditional math 





User-defined menus 


Change file layout without 
losing existing data 

























possible 





Data protection 





Password security 


(€@ The Small Computer Company, Inc. 


-20 230 West 41st Street, Suite 1200, New York, New York 10036 


Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase Il is a trademark of Ashton-Tate. pfs File/Report 


is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 


— filePro® 


The new Tandy computers 
can really speed things up. If 
you don't let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 

filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 


To order, call 

(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 


including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 





















δ... o0. EE 





6 PCM 


June 1986 


Doing Derby 


with an 


Electronic Friend 





OR, the sun shines bright on my Old Kentucky Home, 


It's summer, the people are gay 


The corn top s ripe and the meadow's in the bloom, 


And the birds make music all the day! 


y Tandy 200 and I are taking 
in the Kentucky Derby this 
year. In fact, as I write this, 


the Derby is two days away and I have 
already loaded Federal Hill Software's 
Handicapper into memory so I'll be 
ready to make a "Spectacular Bid" to 
win some money rather than having to 
"Spend a Buck" at Churchill Downs. 
Derby comes once a year in Louisville 
on the first Saturday in May. It's known 
as the “greatest two minutes in sports” 
because that is about how long it takes 
for 10 to 20 of the world's best three- 
year-old thoroughbred horses to make 
a mile and a quarter Run for the Roses. 
But that's just the part you see on TV: 
All week long is Derby Festival in 
Louisville — steamboat and balloon 
races, a “chow wagon” eating extrava- 
ganza, a parade and lots of other stuff. 
Does a lot of work get done the week 
of Derby? Of course not, but it is fun. 
Some 100,000 people will cram Chur- 
chill Downs this year for Derby (here it 
is just "Derby," not *the Kentucky 
Derby," not "the Derby," or anything 
else. Just Derby). I wonder how many 
of them will bring along their 100s and 
200s? And, if I may wax philosophical 


for a bit, it seems fitting that computers 
affordable for everyone can play a part 
in an event called the sport of kings. 

I'm going to give The Handicapper a 
shot at helping me make a winning bet 
in the Derby. In order to do that, I've 
reserved one bank for the program, 
while leaving my two others for Dr. 
Preble’s programs navComp II. You 
see, I am also learning to fly and these 
programs are a great help in this 
endeavor. 

The point of all this is that it certainly 
is interesting to be using computers for 
things in which I am interested — horse 
racing and flying. Here, the computers 
are just tools, not the end-all in them- 
selves. 

The fact is that it is a whole lot easier 
handicapping horses with a computer 
than doing so by hand. And it is a joy 
to plan and execute a flight plan using 
a computer program as opposed to 
figuring things out on a circular slide 
rule. Notice what I am saying: these 
computers have use — utility. 

I am enjoying being exposed to that 
utility. And I am sure you are too. 


— Lonnie Falk 


NEW! MODEL 100 3-in-1 ROM 


Interactive Solutions ` 


All the software that you will ever need 
on the Model 100 Portable: 


WORD 
PROCESSOR 


1— Data Base 


2— Spreadsheet 


SPREAD DATA 
SHEET {MANAGER 


3— Word Processor 
with Mail Merge 


Now on a plug-in ROM. Integrated and easy as 1-2-3! 


Interactive Solutions 
Tandy Cat. 426-3844 


@ The Data Base turns your Mod 100 into a per- 
sonal filing system. You can store, examine, update 
select, sort and list a wide variety of information - 
from personnel records and inventory facts to 
appointment schedules and client lists. 


B The Spreadsheet turns your Mod 100 into a 
powerful decision tool. It is a full featured spread- 
sheet with 99x99 cells and provides fast decimal 
arithmetic in formula computation with complete 
range of scientific functions. 


B The Word Processor uses the Text editor of 
Mod 100 and gives you additional features for 
formatting and printing. You can set margins, line/ 
para spacing, justify, define header/footer and use 
special print features like underline, boldface, etc. 


MORE MEMORY Interactive Solutions does not 
occupy RAM memory, so frees your precious RAM 
for larger data files. 


EXTRA CONVENIENCE Interactive Solutions 
plugs in the optional ROM socket. It is always resi- 
dent and ready to work. You don't need to load 
programs from cassette recorder any more. 


*Copyright DCM Data Products, Licensed to Tandy Corporation. 


* Registered trademark of Tandy Corporation. 


Available at your nearest 


Radie Shaek 


COMPUTER CENTERS 


Interactive Solutions integrates all of your data 
information in Mod 100. With a touch of a func- 
tion key, you can easily: 


Select and move items from Data Base files 
into Spreadsheet columns. 


Generate a report in Data Base program 
and move to the Word Processor. 


Cut any part of Spreadsheet and move to the 
Word Processor. 


Merge the items (like names, addresses) from 


Data Base files into a Form Letter and 
generate multiple letters or labels. 


All this and much more in 
a 32K bytes ROM from 


DCM Data Products 

1710, Two Tandy Center C 

Fort Worth, Tx. 76102 

Tel: 817/390-2762 Hata products] @ 


Radio Shack and Model 100 are trademarks of Tandy Corporation. 
1-2-3 is a trademark of Lotus Corporation. 





WT | | Letters to PCM 


Fontastic Printing 


Editor: 

As a Tandy 1000 owner, I encountered 
some difficulties when I tried to find a font 
utility program that would drive my DMP- 
110 printer. Neither Broderbund’s The Print 
Shop nor Power Up’s The Printing Press do 
the trick, and Unison's Print Master, which 
is listed in the new Tandy computer catalog, 
only drives the newer IBM-compatible 
printers put out by Tandy. 

The solution to my search became Pro- 
Soft's Fontasy, an excellent program that 
drives all Tandy printers (and many others) 
and seems particularly well-mated to the 
1000. For example, although ProSoft's 
documentation states that an IBM PC needs 
512K memory to compose a full page in 
Fontasy, my 384K machine handles the job 
easily, possibly because of its built-in high 
resolution graphics. 

Fontasy is a flexible program that can 
easily magnify, mirror, invert, etc., any of its 
fonts — and there are a lot of fonts available. 
The program also comes with a design 
system that allows a user to modify existing 
fonts or create new ones, and a template 
section that sets up and prints multicolumn 
pages with letterheads and even flows text 
around predefined graphics *windows" on 
the page. Then there's a graphics capability 
that draws free-hand or rubberband lines, 
rectangles and ovals (you can change the 
aspect ratio before fixing the oval on the 
page), and a fill option that includes 95 
patterns. All of this is simply driven by a 
series of menus and mnemonic commands. 

I heartily recommend Fontasy to Tandy 
1000 owners who are looking for a font 
program that suits their computer, drives 
their printer and, at $49.95, won’t strain 
their wallet. 

By the way, I have also devised a simple 
method for using the RAM3 dictionary in 
Turbo Lightning with a floppy disk — a 
trick I'd be happy to share with anyone who 
sends a self-addressed, stamped envelope to 
1808 Whispering Hill, 37043. 


Thomas A. Pallen 
Clarksville, TN 


Additions for the *Wooing' Repertoire 


Editor: 

Hard disk users should take heed of John 
McCormick's advice on setting up subdirec- 
tories. (^Wooing Ms. DOS," April 1986, 
Page 79). It makes life so much simpler. 

I would make two additional suggestions. 
The command PROMPT &p$g lets you know 
where you are all of the time by displaying 
the directory name. For instance, the root 
directory prompt would be \>, and the 
prompt for Mr. McCormick's subdirectory, 
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WORD, would be \WORD>. This prevents 
confusion when several subdirectories are 
used, and when changing back and forth 
between Drive C and Drive A. 

The command can easily be set up, as 
described by Mr. McCormick, in the AUTO 
EXEC.BAT file. Try it by typing in the 
command and pressing ENTER. Then, if you 
like it, put it in the RUTOEXEC.BRT file. 
You'll wonder how you ever survived with- 
out it. 

My second suggestion has to do with the 
TREE command, which is excellent for 
checking the status of your directories and 
paths. This command is omitted from the 
Tandy 2000 version of MS-DOS, but can be 
easily copied from a version that includes it. 
Typing TREE gives a directory of all your 
subdirectories and paths. 

As a self-taught computer enthusiast, I 
find the issues of PCM an inexpensive, but 
valuable aid in my continuing education. 
This is one magazine I won'd lend to friends 
for fear they might have it when I need it for 
reference. I just hand them a subscription 
card and tell them to get their own! 


Irma Canfield 
Franklinton, LA 


Tandy Communication Connection 


Editor: 

For a year now, I have been receiving 
PCM every month. I am very well-taught on 
the use of my Tandy 100 and Tandy 1000. 
I read every page of the magazine and put 
to work any application program that is of 
concern to me. 

I have one question: How do I set the 
parameters on my Tandy 100 and 1000 in 
order to have both computers communi- 
cate? I have the RS-232 interface board 
installed in the 1000. 


Bernard Mongeau 
Sillery, Quebec 


Setting the communications 
parameters is actually the simplest 
Step in getting two computers to 
communicate. The important thing to 
remember is the parameters are set the 
same on both machines. But, there is 
much more to communications than 
parameters. 

The first step to getting two com- 
puters to communicate is finding 
communications software for both 
machines. The Telcom software built 
into the Tandy 100, and DeskMate, 
which comes with the 1000, aren't 
really the answer. To accurately 
transfer files between the two ma- 
chines, you'll need software that 
supports XMODEM or some similar 


error-checking protocol. Most Tandy 
1000 terminal packages support 
XMODEM. For your Tandy 100, try 
Segia's X-Tel (reviewed in this issue). 


Looking for 
Expansion Board 


Editor: 

In the February 1986 issue of PCM in the 
article “Upgrade Your Tandy 1000," you 
refer to a PBJ MFB-1000 memory expan- 
sion board. Please tell me how to receive 
information about the board, the manufac- 
turer' name and address, the price and 
where I might purchase one. 


Jan A. Hanson 
Ramsey, MN 


The MFB-1000 is available from 
PBJ Inc., 5725 Kennedy Boulevard, 
N. Bergen, NJ 07047, (201) 861-0126. 


The Key You have Pressed... 
has been Changed... 


Editor: 

I wanted to let you know that I really 
appreciate the support you are providing to 
Tandy users, and to pass on a problem I have 
discovered with the GW-BASIC Version 2.02 
(Tandy Version 1.01.00). 

Here in Fairbanks our nearest source of 
reliable information is Seattle. All we have 
for support is provided by a local Radio 
Shack franchise that knows very little about 
the computers they sell. Your magazine 
provides valuable information. 

The problem I discovered with the most 
recent version of BASIC is in the key trapping. 
The new version of BASIC does not recognize 
function keys F11 and F12 as 11 and 12. I was 
told by the software support people in Fort 
Worth that in an effort to make this verison 
of BASIC more compatible with the IBM 
version of GW-BASIC, the function keys F11 
and F12 are now assigned 21 and 22. The keys 
for the purpose of key trapping are now 
numbers | through 10, as ΕΙ through F10. 
The cursor control keys are assigned: up = 
11, left = 12, right = 13, down = 14, and F11 
and F12 are now 21 and 22, respectively. I 
stumbled onto this trying to run the Sketch 
program from your October 1985 magazine 
(Page 10). I hope this may be of help to 
others who have realized there is a problem, 
but were unable to track down the cause. 


Jerald L. Coffman 
North Pole, AK 


DISK POWER 


. . AT LAST !! 


ULTRACHARGE YOUR TANDY PORTABLE DISK DRIVE WITH 
DISK POWER 100/200/102 


* A REAL DISK OPERATING SYSTEM 


All disk functions completely supported by DISK POWER. 
No need to rely on FLOPPY.CO or user-written programs for 
external utilities. DISK POWER is not just another disk 
manager program, it is the full featured DOS that the MODEL 
100 should have had from the very beginning! 


* DISK ACCESSIBLE FROM BASIC & TEXT 


Data file Ι/Ο operations supported with familiar BASIC com- 
mands. Save and Load programs from within BASIC. From 
TEXT, every .DO file can be Loaded from or Saved to Disk 
by DISK POWER. 


* TELCOM ENHANCEMENTS 

Direct Access to Basic & TEXT from inside TELCOM. Kill, 
Load, Save or Edit files without losing telephone communi- 
cations. You can see your files while uploading. With 
DISK POWER, it is all possible! 


* 24 HR/DAY BBS TECHNICAL INFORMATION & SUPPORT HOTLINE: 


* FULLY MENU DRIVEN 

Any DISK or RAM file is selected by the cursor. The stroke 
of a SINGLE function key will perform the desired task on 
the HIGHLIGHTED file. You may never have to remember 
or even type a filename again, when using DISK POWER! 


* NOT JUST “FOR HACKERS ONLY” 


Though programmers will be surprised by the versatility of 
DISK POWER, regular users will find our operating system 
FAST, easy to use AND easy to understand. 


* WRITTEN BY HUGO FERREYRA (SoftPower) 


In DISK POWER, you can expect to find the same ULTRA- 
features, innovation & ease of use that all users & reviewers ` 
found in TEXT POWER 100, which made it “THE BEST 
FORMATTER THERE IS FOR THE 100”. 


(514) 457-2917 


Use STAT M8N1E, and Log-on with ID: DISK using PASSWORD: POWER 


DISK POWER 100/200/102 $49.95 US 


TEXT POWER 100 $49.95 US 


or SAVE by buying the ULTRA POWER program pack: DISK POWER/TEXT POWER 100 FOR ONLY $89.95 us 


To order TEXT POWER 100, specify printer(s) used. The basic price includes support for one printer. Please add $10.00 for each additional printer you 
wish supported. All U.S. orders shipped from within the USA. Absolutely no custom forms, sales tax or duty required. Add $3.00 S&H to each order. 


No surcharge for VISA or MC 
To order, call TOLL FREE: 


or send CHECK or MONEY ORDER to: 


1-800-448-4511 Ext. 313 
1-800-962-1480 Ext. 313 
1-800-255-1133 Ext. 313 


USA (Except N.Y.) 
NEW YORK STATE ONLY 
ONTARIO & QUEBEC 


| 
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1000/1200/2000/3000 


Not satisfied with just the 
old Alphabet? Here’s 
how to make your 
computer multi-lingual 


What a Bunch 






ou'd think that the subject of 
video characters would be cut 
and dried, wouldn’t you? 
However, there are some in- 
teresting and amazing things 
that can be done with Tandy MS-DOS 
machines vis-a-vis video characters. I 
was surprised to discover that you can 
add any number of your own text or 
special characters to BASIC (or other) 
programs — you can easily add a full 
set of Cyrillic or Arabic characters for 
video display, for example, and you 
could have dozens of sets of characters 
in RAM or on disk ready at your beck 
and call. I’m not talking about labor- 
iously constructing characters in gra- 
phics, either. You can use a statement 
such as this to print out three custom 
tailored characters: 


100 PRINT CHR$(133)-*CHR$ 
(132)*CHR$ (200) 


In the process of researching this 
topic, I came up with some other tricks 
and techniques worth mentioning, in- 
cluding textures and form characters 
for video, and a way to produce virtu- 


William Barden, Jr. is a master com- 
municator in a field in which he is one 
of the few recognized experts — micro- 
computers. A prolific author of more 
than 27 books on computers and com- 
puter programming, Bill also has au- 
thored several instructional software 
projects for Tandy/ Radio Shack. 
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of Characters! 
By William Barden, Jr. 


ally any size character from the built-in 
set of MS-DOS characters. Interested? 
Read on. 


The Standard Set of Characters 

I shouldn't tell you this (you may 
know already), but the Tandy 1000 is 
really just an IBM PCjr in wolf's clo- 
thing. In fact the 1000 looks virtually 
identical to the PCjr as far as graphics, 
sound and architecture. Of course, the 
1000 is what the PCjr should have been 
— a machine with an excellent key- 
board, more than one disk drive, hard 
disk and other expandability. My point 
in mentioning this is that PCjr and PC 
technical documentation is excellent 
(and available), and can be used (with 
some caution) to find out what's hap- 
pening in the Tandy 1000, 1200, or 3000. 

Tandy MS-DOS systems use the 
same character set as the IBM ma- 
chines. As you know, ASCII characters 
are used as a base. Standard ASCII 
characters make up the first 128 char- 
acters from zero to 127 decimal — they 
use a seven-bit code, as shown in Figure 
f: 

The characters from 32 decimal to 
127 are common alphabetic, numeric 
and special characters. Even though the 
ASCII code is supposed to be standard, 
you'll find some variations in some of 
these codes on various printers and 
systems. But we'll use the IBM/ Tandy 
codes as gospel. The codes from zero 
through 31 are the so-called “control 


- codes." Generally, these codes are not 


printable. They provide for data com- 





: : os ` example, allows you to embed control 
Figure 1. ASCII Characters — s characters in the text. The funny faces 
Ius and other characters display in the text 
and can be used to control special 
Leading Pa: : printer functions such as underlining 
Hex Digit and boldface. 

0 Decimal 3 4 i It would be interesting to read the 
internal IBM memos to see how and 
why some of the glyphs were chosen — 
why both a normal and inverse video 
funny face, for example? Why card 
suits? Why not an IBM logo, to really 

put their stamp on things? 


1 


The Alternate Character Set 
A seven-bit code such as ASCII 
leaves 128 unused code values in an 
eight-bit byte, values from 128 through 
256. Various manufacturers have tried 
their hand at special codes in this group. 
Fortunately, reason prevailed at IBM, 
and minuscule profiles of the top 128 
IBM executives were not used in this 
sequence, although it was a close deci- 
sion. Instead, the characters shown in 

Figure 2 were implemented. 
Yee  6*K  O— The first group of these characters 
Control Special Upper Lower represent foreign characters such as 
Codes Mir dete Case/ | Case/ umlauts (u) and commonly used char- 
gits PE acces Wing acters not in the basic 128, such as the 
I British pound sign (Æ and one-half and 
one-quarter fractional signs. These are 
followed by gray shading characters, 


Trailing 


^ @ On owes won =~ « 


> FON <M EK CHH DOD 
rr A ned eT Ὅν ` py (EE. ER, evi REL] 


ο S S m p e m cce mon 
3 


o z grx—--rommuooon»odg 


° 35 





munication actions such as ESC (Es- 
cape), SOH (Start of Header), and EOT 


(End of Transmission). Also in the Figure 2. Alternate Characters 
control codes are the necessary Carriage | 
Return code (13), Line Feed (10), Form Met 
Feed (12) and other formatting codes. 0 4 5 
Most of the 128 ASCII codes can be - - 
displayed on the screen. The normally- 0 C | E 8 š XR Wasi ii 
printable codes are displayed by simply 1 ü æ j| i Hip Loja | B 
including them as standard text charac- 2 e Æ o uH "m Tr P 
ters: 3 a 6 u | F uL. T 
100 PRINT “Insert 25 cents veil ber ΑΝΝΑ e a P. isst du 
to continue with MS-DOS” Supe d Mme mt 
6 | à a a di Ε π m 
IBM assigned characters for many 7 ç u ° ~ Ik | + Y 
control codes — an ASCII one (nor- LA m L 
mally SOH) prints as a happy face, for ή it ji à m UE EM Š 
example, and an ASCII eight (normally 9 a M -- 4 uode 
BS or Backspace) prints as a small e U|-— τπτ πι 
diskette. To print these codes, you can i ç Vo x | ar | ΒΒ £ 
use a CHR$ statement in a BASIC pro- BY £ 1⁄4 =i j- | = e 
gram or special prefixes in other lan- id Y i Ea Ø 
guages (Chr in Turbo PASCAL, for " tat 
instance): A Pt < mil Wielu 8 € 
A H > ii = em n 
100 PRINT “Have a nice day 
we "m " λτηπτεττίστεελειπτεεοτεητῃς 
πας μμ Foreign Texture/Line Greek 
Various programs have different ανα πα ΠΝ 
ways of displaying some of the codes — | Symbols 





the My Word! word processor, for 
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Check Out Our Systems — High QUALITY 4 layer TURBO motherboard at the LOWEST prices. 
Our hard drive systems — an EXTRA megabyte of Storage FREE 
(more megabytes for less megabucks) 
Our monitors are high resolutions with minimum 1,000 lines 
— They even have their own tilt and swivel base at no added cost. — 
Powered by a heavy duty power supply, and offering TRUE turbo speed. 
ONE FULL YEAR WARRANTY 


COMPARE OUR SYSTEMS — TURBO M is the COMPETITION 
SYSTEM-A-SINGLE FLOPPY SYSTEM TURBO M PC COMPLETE SYSTEM 
i $899.95! Dual Speed CPU — 4.77 AND TURBO 


640 K memory 

8 slot motherboard 
135 Watt Power Supply Game Port 
Monochrome TTL Card Keyboard 5151 Style 
Monochrome Display High Res Ram spooler and 

Tilt and Swivel Base Monitor Printer spooler system 
Serial port (2nd port opt.) DOS 2.11 


2 parallel ports 
Clock calendar 


SYSTEM "mm DRIVE SYSTEM 
$1,399.95! 


Toll Free Ordering 1-800-343-8841 


TURBO M / AT—COMPLETE SYSTEMS 
STARTING AT $2,359.95 !!! 
ONE FULL YEAR WARRANTY 
Comes Complete with 
6 and 8 MHZ Switch Selectable 
8 Slot Motherboard 
192 Watt Power Supply 
1.2 Megabyte Floppy Drive 
1 Full Megabyte of Memory on Motherboard 
2 Parallel Ports — 2 Serial Ports 
Clock Calendar 
Hercules Compatible Monochrome Card 
Monochrome Display-High Resolution 
Tilt and Swivel Base 
DOS 3.1 — AT Keyboard 


ADD-IN BOARDS TO HELP YOU BUILD YOUR SYSTEM 


TURBO-M Motherboad| Monochrome Graphics 
Dual Speed Card with 
Printer Port 


hullii , a 


(Αν vM 
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Floppy Ὁ Card 
Controls Two Floppy 
Drives, Serial Port 
Parallel Port Clock 
Calendar Game Port 


$109.95 


5151 Compatible Monochrome Monitor 
eyboard with Separate | with High Resolution 
Cursor and Tilt/Swivel Base 
Number Pads 


$124.95 $179.95 $79.95 


MEGADISK" HARD DRIVES 
Our Hard Drive Systems Are Compatible With 
IBM PC and AT, HEATH/ZENITH, COMPAQ, COLUMBIA, PC CLONES, TAVA, EAGLE 
TRS/80 Models I / III / IV / 4D / 4P / MAX 80 / COLOR COMPUTER, Tandy 1000 
Systems come complete with drive, controller, cables, Systems come complete with one free software driver for TRSDOS 6, 
hardware and easy to follow instructions. LDOS 5.1.x, DOSPLUS 3.4/4, or NEWDOS 80.CP/M is available. 
5.5 megabytes starts at 399.95 (removable) 5 megabytes............. 
11 megabytes .... starts at 419.95 10 megabytes 
24 megabytes ... $9 exe: 15 megabytes 
60 megabytes 20 megabytes 


Winchester Hard 
Drive Controller 


10 Megabyte and 20 Megabyte Drives 
Complete System 
Drive. Controller, Cables 
and easy to follow 
instructions. 


Color Graphics 
Card with 
Printer Port 


$299.95 


135 Watt 
Power Supply 


$94.95 


ulti Function Card with 
Space for 384K of 
Memory, Senal Port, 
Parallel Port Clock 

Calendar, Game Port 


$89.95 


Flip Top Cabinet 
with Speaker 


ν O 
Floppy Drive Card 
Control up to 
Four Drives 


$89.95 $80.00 $64.95 


24 megabytes 


REMOVABLE MEDIA SPECIAL 
5 Megabyte Cartridge Now Available 
Specially Priced! 399.95! 


30 megabyte-fixed & removeable ..... 
40 megabytes ................ 
50 megabytes 


Warranty Information: TURBO-M systems come with a full year warranty for parts and labor. 
TURBO-M systems are guaranteed to run all programs such as LOTUS, SYMPHONY, AUTOCAD. 
FLIGHT SIMULATOR, DBASE, MICROGRAPF X, WORDSTAR, LEADING EDGE W/P. RBASE 
MEGADISK hard drives are fully warranteed for parts and labor. 


SO FTWAR E SU PPO RT, | NC Service ἃ Returns; It is our policy to repair all service 


TERMS and CONDITIONS: 


All prices are cash discounted. However, we do 
accept MC, VISA, AMEX & DISCOVER credit cards 
Please inquire 

C.0.D.'s are accepted-No deposit required 
Purchase Orders-Corporate, Government & Schoo! 
P.O/s are accepted, Please call for details 
Shipping Costs are calculated per order. 

Please call for total 


1 Edgell Road 


24 hours, same day service is available upon 
request at no added cost 
Not responsible for typographical errors. 


Framingham, MA 01701 
1-617-872-9090 


Hours: Mon.-Fri. 10 am to 5:30 pm (est) Sat 4:00 pm 


Shipments of all in-stock products are made within Toll Free Ordering 1 -800-343-884 7 
Dealer Inquiries Invited 


returns within 24-48 hours. Normally same day turn- 
a-round is accomplished. It is necessary to have a 
(Rieturn (M)aterial (Ajuthorization to insure 
speedy service 
IBM. TAVA, COLUMBIA. 5151. COMPAQ. EAGLE 
TRS/80. HEATH/ZENITH are registered trademarks 
of IBM Corp. Tava Corp. Columbia Computer Corp. 
Key Tronics Corp, Compaq Corp. Eagle Computer 
Tandy Corp, Zenith Corp. respectively 

1986 Software Support Inc All nants reserved 





Ok 

list 1000-1030 
1000 PRINT " 
1010 PRINT 
1828 PRINT 
n" PRINT 


ILIST ¿RUNE 


form characters, block graphic charac- 
ters, a portion of the Greek alphabet 
and mathematical symbols. 

All of these characters can be entered 
directly from the keyboard by holding 
down the ALT key and then entering the 
character code from the numeric key- 
pad. To display the line segment (+), for 
example, you'd press ALT and then enter 
215; 

The problem with most of these 
characters is that many software pack- 
ages and printers are not equipped to 
handle them, even though they can be 
displayed on the screen. I have an older 
Radio Shack DMP-2100 as my main 
printer for a Tandy 1000 and IBM PC 
and an IBM Graphics printer on my 
PCjr. The DMP-2100 doesn’t recognize 
the expanded character set and ignores 
characters that display on the screen or 
prints a different character. The IBM 
Graphics printer prints any character 
that can be displayed on the screen 
because it is designed that way. Any 
newer printer that is MS-DOS compat- 
ible will also print any of the 256 screen 
characters, including Tandy printers, of 
course. 

Displaying the characters in the 
alternate character set is ideal, because 
it eliminates the messy CHR$ coding in 
favor of actually seeing what will be 
printed. An example is the code seg- 
ment shown in Figure 3, which shows 
a portion of a form that is constructed 
using the line segments in the alternate 
character set and entered directly from 
the keyboard with the ALT key and 
numeric keypad. Being able to display 
the form on the screen allows you to 
easily position and align the characters, 


SLOAD" 4SAUE' 


Figure 3 
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Figure 4. Eight by Eight 
Pixel Encoding 
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Tandy 1000 Memory Card 


another high quality product from Southwestern Digital 


Why spend a bundle on a Tandy board? 
Our Board is only 


$135. 


Features: 
512K of Memory 
DMA 
Expansion Port 
Gold Edge Cards 
Easy Installation 
30 Day Satisfaction Guarantee Policy 


The Southwestern Digital Memory Expansion Plus Card has all 
the features of the Radio Shack Board but the price; you save 
almost $400. Features include 512K installed, burned in, and tested 
to give you a total of 640K, a DMA circut that is fully tested for hard 
drive operation, and an expansion port that will work with any of the 
Radio Shack Memory Plus Expansion Card options. High quality 
manufacturing, and features such as gold plated card edges make 
this the logical choice in upgrading your memory. 





Order Line 
Ordering Information 
Call us or mail your order in. We accept Visa, Mastercard, and Certified Funds for quickest ship- 1 -713- 480 -3296 
ment. Personal checks are held for clearance. Add $5. for ground shipment, or $10 for UPS 2nd HET 
day air service. All products carry a 30 day satisfaction guarantee, and are warrantied for a full Southwestern Digital 
year 2515 West Main Street, Suite #337 


Houston, Texas 77098 


either for display or printing. 

The texture characters are often 
overlooked in the alternate character 
set. Characters 176, 177 and 178 provide 
a dot texturing of the entire character 
position. They can be used to simulate 
colors on monochrome displays for 
such things as bar graphs. 


Characters in the Graphics Mode 

One of the nice things about MS- 
DOS systems is that both graphics and 
text can be intermixed. This was not so 
in many earlier computer systems. In 
the text mode of BASIC (SCREEN @) the 
screen characters, including the alter- 
nate characters, are formed by a ROM 
character generator. This is a chip that 
contains all of the patterns for the 
characters; each character is encoded in 
8-by-8 pixel form, as shown in Figure 
4. (The monochrome adapter used on 
the PC series and Tandy 1200 actually 
generates a higher resolution 9-by-14 
pixel character.) 

In graphics modes, characters are not 
generated by the ROM character gener- 
ator, but by the system BIOS, the 
firmware that drives input and output 
devices for MS-DOS. This implementa- 
tion allows mixing both text and graph- 
ics. 
The characters are generated from a 
table of characters in the BIOS firm- 
ware in high memory. To get at these 
characters from BASIC and other lan- 
guages, it's necessary to use the DEF SEG 
statement. 


Segment Addressing 

PC machines such as the Tandy 1000 
allow a total of 1,048,576 bytes of 
memory to be addressed — the address- 
ing space of the 8088 microprocessors 
used in the IBM PC, Tandy 1000 and 
Tandy 1200. This addressing space is 
divided up into RAM (user memory), 
ROM (system BIOS) and dedicated 
addresses, as shown in Figure 5. 

The 8088 was an offshoot of the 
8080/8085 microprocessors which were 
geared towards a 65,535 byte (64K 
bytes) addressing space. To maintain 
compatibility with the older micropro- 
cessors, the 8088 uses the notion of 
segments. Segments divide the address- 
ing space into 64K blocks. Within the 
blocks, any of the 64K bytes can be 
addressed by an offset address of zero 
through 65,535. To address another 
part of memory, a segment register is 
changed to point to another block. 
(That's the basic scheme, although a 
little bit simplified.) 

BASIC uses its own 64K block for 


Figure 5. Memory Layout 
and Segment Addressing 


BIOS ROM (Basic 
Input/Output System) 
ACRES Cp Ws OC λε 
ΙΟ ROM 


Video 
RAM 


«— — 640K Point 
Expansion 
RAM 


! 


Base RAM 
(Holds MS-DOS, 
BASIC, User 256K bytes 


Pr. pem and shown 


Data Segment Pointer 
points here 


BASIC 
Data Segment 
64K bytes 


Typical offset 
within segment 


Figure 6. BIOS Character 
Table 


8 bytes for OO 
character 


B bytes for 01 
character 


8 bytes for 02 
character 


yt 
(8*128) 


8 bytes for 


8 bytes for 
7F(127) 
character 


*PCjr code shown 
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Model 100 


ROMDSK. 8K or 32K CUSTOM expansion rom for 
the TRS-80 Model 100. Custom programmed with 
YOUR programs. 

8K 32K 


49.95 $69.95 
Call or Write ROSS COMPUTER SERVICES 
For Ordering Information 


- SHIFT YOUR HARD 
TANDY 1000, 1200, 3000 DISK BACK INTO 


HIGH GEAR 
Tune Your Disk Files For 
The SMART Software System, from Innovative Software. Highest Performance 
The SMART DATA MANAGER 
The SMART WORD PROCESSOR 
The SMART SPREADSHEET (With Graphics) . 
The SMART SPELLCHECKER $139.00 


The SMART SYSTEM* i Ἷ Call Only $49.95 


*The SMART Software System includes: The Smart Data Manager, The Smart Spread- 
sheet with Graphics, and The Smart Word Processor, and can only be sold as a 
system, not as individual products. The smart Software System includes built in 
asynchronous communications and personal time management programs. 


BORLAND 


INTERNATIONAL 


Turbo Tutor | Superkey . ..$ 69.96 
Turbo Pascal 3.0 SideKick (copy- protected) . .$ 54.95 
Turbo Pascal with 8087 SideKick 
Turbo Pascal with BCD ... (NOT copy-protected) ....$ 84.95 
Turbo Pascal 3.0 with Traveling SideKick 

both 8087 & BCD 1 (now available) 
Turbo Database Toolbox ....$ 54. Traveling SideKick 
Turbo Graphix Toolbox i with SideKick (NCP) 
Turbo Editor Toolbox .... Turbo Lightning 
Turbo Gameworks Reflex: The Analyst 


ORTHO'S COMPUTERIZED GARDENING 
PUT A COMPUTER TO WORK IN 
ee ο = YOUR GARDEN! 
MERCURY 300/ Gardening Regionalized to your zip code 
E va 0/1200 2 Over 750 plants 
y : You choose by common name, 


vee wen a sË botanical name, height, color, 


MODEM. Uses the industry standard AT command | a soil condition, or water 
J δ ; requirements 


Set. 
SPECIAL ... ο... * Also included —''Gardening Techniques,” 
a 196 page book with full color 
NOW JUST $49.95 photography and illustrations. 





Ross COMPUTER SERVICES 
(816) 363-2545 


Hours: 8:30 to 5:00 e 


After 5:00 you will reach our order line BBS = 
1800 W. 91st Place « Kansas City, MO 64114 








storage of program and data variables. 
However, any portion of memory can 
be addressed in BASIC by changing the 
data segment register with the DEF SEG 
command. DEF SEG uses an address of 
zero through 65,535 (hexadecimal 0000 
through FFFF). The actual physical 
address generated from the segment 
address adds a hexadecimal zero on the 
right — DEF SEG &HF 990, for example, 
becomes &HF0000. Once the segment 
address is specified, any of the 64K 
bytes within the segment can be ac- 
cessed by PEEKs and POKEs and other 
BASIC statements. A DEF SEG without 
an operand sets the data segment reg- 
ister back to the original value of 
BASIC's data segment. 


Location of the Characters 

In the basic PC (Tandy 1200), only 
the first 128 characters are allowed in 
graphics. However, in the PCjr and 
Tandy 1000, all of the 256 possible 
characters are permitted. We'll address 
ourselves to the PCjr/ Tandy 1000 con- 
figuration here. The first set of 128 
characters — the standard ASCII — is 
found at physical address &HFFRGE in 
ROM BIOS. Each character is made up 
of eight bytes containing eight bits per 
byte, as shown in Figure 6. The 64 bits 
make up the 64 pixels of the character 
as shown in the figure. As there are 128 
characters in the first set, the table is 128 
by eight, or 1,024 bytes long. 

The second portion of the table is 
located at physical address &HF C070 in 
Tandy BIOS. The arrangement of the 
characters here is the same as in the first 
set — eight bytes per character. 


A Character Expander 

To print a character, the BIOS soft- 
ware looks at the character code, ac- 
cesses the character table, and then 
prints the dots that make up the char- 
acter. In the 640-by-200 resolution 
mode, for example, eight rows of eight 
columns are printed for each character. 

We can take advantage of the built- 
in character table to accomplish inter- 
esting things. One possibility is shown 
in Listing 1. This is a graphics subrou- 
tine that allows expanded characters to 
be displayed. The basic approach here 
is to pass the subroutine a string of 
characters to be displayed along with 
the display position and scale factor, as 
shown in Figure 7. 

The scale factor allows characters to 
be stretched vertically or horizontally, 
as shown in Figure 8. To incorporate the 
subroutine in your own BASIC pro- 
grams, pass it the string as CH$, the ‘X’ 


Figure 7. Character Expander Parameters 


CH$ - "TEXT" 


CX,CY Point to upper-left 


corner 


E. 


— 


XSC determines width 
of XSC * 8 pixels 





and *Y' scale factors as XSC and YSC and 
the upper left corner of the starting 
character position as CX,CY. The only 
disadvantage of the subroutine is that 
it's rather slow. However, compiling the 
BASIC code speeds things up by a factor 
of about 10. 

The subroutine works as follows: An 
individual character is stripped from the 
CH$ string from left to right. For each 
character in the string, the correspond- 
ing ASCII code is found by the ASC 
function. The ASCII code is used to 
find the dot-matrix form of the charac- 
ter in the BIOS table and move the eight 
bytes to the array Z.CHR. 

The 64 bits of the dot-matrix form are 
now scanned a row at a time. For each 
row scanned, there are eight columns, 
found by counting Z.X from zero to 
seven and using 2^(7-2.X) as an AND 
value to find whether the pixel should 
be on or off. The SGN function just sets 
Z.PIX to a zero or one for a two-color 
mode representation of the character. 
Change this for four-color graphics. 

Each pixel position is repeated the 
number of times defined by XSC, ex- 
panding the character widthwise. Each 
row is repeated based upon YSC, ex- 
panding the character lengthwise. 

At the end of the display, CX and CY 


, 


CX,CY Point 
here at end 


YSC determines height 
of YSC * 8 pixels 


are adjusted to point to the upper left- 
hand corner of the next screen “charac- 
ter position,” based upon the size of the 
character in the expanded mode. 


Creating Your Own Character Set 

All of this leads us to the main point 
of this column — how to add your own 
characters. The ROM BIOS is meant to 
be used as a standard way of performing 
system functions. It contains a set of 
routines to handle all system I/O — 
scrolling the screen, communicating 
with the RS-232C port, and so forth. 
The code has a lot of *hooks" in it to 
allow a systems programmer to add 
extensions and change things around in 
an orderly fashion. BIOS uses a set of 
software interrupt vectors located in 
low memory — way down in Segment 
Zero. Instead of jumping directly to an 
I/O handler in ROM, a programmer 
should make a system call via a software 
interrupt, which would then route the 
call to the proper BIOS routine. 

Interrupt vectors in ROM look like 
Figure 9. They are four bytes long and 
consist of a segment address and an 
offset. The segment address and offset 
define a BIOS memory location for the 
function. 

Both the standard ASCII characters 
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YOU’RE MISSING OUT! 


Supercharge your Portable 100/200. 


is a 3-in-1 cross-referencing 
software package with database 
management, spreadsheet and 
word processing. 


Information stored in' Data 
Manager, the data base, can be 
utilized by Data Calc, the 
spreadsheet program. The 
Word Processor allows you to 
merge Data Manager informa- 
— tion into your text. Or you can 
select any part of a Data Calc 
| worksheet and add it to any 
| text file in Word Processor. 







u Interactive Solutions i is easy 
) learn too, because it's de- 
d to be self-explanatory 
guide you through each 


- concise la- 


bels and menus make decision 


making easy. 


Expand your Tandy 200 
Add ROM-based power to 
make your Tandy 200 more ver- 
satile, too. With Multi-Solutions 
you get three powerful applica- 

tions: a word processor which 
allows formatting of any text 
file; Time Minder, a calendar 
program that lets you keep 

track of appointments: and 
Data Manager to help you man- 
age dates, addresses, invento- 
ries and more. 


Come in today! 
Supercharge your portable 

today. Drop by vour nearest 

Radio Shack Computer Center! 


KACI HOCK 


The Technology Store” 


A DIVISION OF TANDY CORPORATION 


Send me an RSC-16 
Computer Catalog 


Radio Shack, Dept. 86-A-140 
300 One Tandy Center 
Fort Worth, TX 76102 


Name 


Company 


Address 
City 
State 


Phone 





Prices apply at Radio Shack Eomp Centers and at 
Rog stores and dealers. Multiplan/TM Microsoft 
rp. 
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Figure 8 
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Figure 9. Interrupt Vector 
Format 
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and alternate character set have point- 
ers that look like the interrupt vectors 
of the figure. The pointer to the stand- 
ard character set is located at &H110 
through &H113, and the pointer to the 
alternate character set is located at &H7C 
through &H7F. The original PC type 
systems allowed only the first 128 
characters to be displayed in graphics 
mode. However, they also permitted the 
user to put in a pointer to his own 
alternate character set in graphics 
mode. Later systems, such as the PCjr 
and Tandy 1000, allowed all 256 char- 
acters in graphics mode, but kept the 
pointers. In fact, then, we can simply 
substitute our own character set by 
changing the pointers — say the pointer 
to the alternate character set. 

To see how this works, load BASIC 
and enter the commands in Figure 10. 


Figure 10 


Ok 

SCREEN 2 

ok 

DEF SEG=0: PRINT PEEK (&H510): 
PRINT PEEK(&H511): DEF SEG 

xxxx (typically 128) 

yyyy (typically 21) 

Dk 

CLERR ,19999 








Ok 

DEF SEG-0: POKE &H2C,32: 
POKE &H2D,78: POKE &H2E,xxxx: 
POKE &H2F ,yyyy 

Ok 

DEF SEG 

Ok 

FOR 1Ξ20000 TO 20007: 
POKE I,&HA@: NEXT 

Ok 

PRINT CHR$ (128) 

The xxxx and yyyy are the addresses 
obtained from the first PEEKs and 
represent the data segment address of 
BASIC. They are put into the alternate 
character set segment pointer addresses. 
The offset is set to 20,000, meaning the 
20,000th location within BASIC, a free 
area, protected by the CLEAR ,19999 
statement. 

If you did this sequence correctly, you 
will see a pair of vertical lines displayed 
after the PRINT CHR$(128). What 
you've done is to change the location of 
the alternate character set to a protected 


memory area within the BASIC 64K 
segment. As each character takes up 
eight bytes, creating a table of 1,024 
bytes will give you a new set of alternate 
characters, one that can be changed at 
will. You could, for example, do BSRVEs 
and BLORDS in BASIC to save and reload 
the 1,024-byte memory area with any 
new character sets you wish. You could 
even define larger patterns made up of 
several characters, although this is 
probably better done in standard graph- 
ics. 

The beauty of the alternate character 
method is that you can use a CHR$ with 
a value of 128 through 255 instead of a 
set of graphics commands to print the 
character. Once the set is defined, you 
can also use the ALT key method of 
entry on the screen. 


How Do You Edit the Characters? 
There is a problem, though. How can 

you easily create the characters to be 

used? What's really needed is a charac- 


Figure 11 


GRAPHICS EDITOR 


1, Read in old file 
à, Save characters in file 
3, Edit character 


ter editor. By a lucky stroke of fate, I 
just happen to have one here. (See 
Listing 2.) 

The character editor is not a new idea. 
I saw a version of it on an ACT Apricot 
system, an MS-DOS machine with tiny 
diskettes, a small "footprint," and a 
huge price several years ago. The basic 
display is shown in Figure 11. 

The 128 characters of the alternate set 
are displayed at the bottom of the 
screen, referenced by code. Initially, 
these characters will be garbage, as the 
pointer points to a character work area 
at an offset of 20,000 within BASIC. 

There are three basic functions — 
saving a new file, loading an old file, and 
editing a character. The editing function 
is the guts of the program. 

If you've selected the character edit, 
the current character is displayed in an 
8-by-8 matrix in the middle of the 
screen. This matrix is designed to re- 
semble the actual screen dimensions of 
the character as much as possible. The 


Arrows=moyve; I=Ink toggle; Q-Quit 
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screen has an aspect ratio of four units 
horizontally to three units vertically. In 
80-character mode each character is 
*[ag = !/2 unit wide by 3/25 unit high, 
making the aspect ratio of a character 
one to 2.4. 

During the edit mode, you can move 
a cursor by the up arrow, down arrow, 
right arrow and left arrow keys. A small 
dot in the middle of each of the 64 
rectangles marks the position of the 
cursor. Pressing the I key sets or resets 
an "ink" mode. If ink is on, the rectangle 
within the square is filled in. If ink is off, 
no filling in is done. 

As the character is drawn on the 
matrix, you'll also see it reproduced in 
the proper position at the bottom of the 
screen. The large display is good for 
defining the character, but the small 
display is necessary to see what it 
actually looks like on the screen. 

Pressing Q quits the character edit 
mode and returns you to the short main 
menu from which another character can 
be selected for edit. 

The current set of characters can be 
saved at any time in any file you wish 
to name. (If no extension is used, BASIC 
uses a .BAS extension.) A file can be 
added to or edited by reloading an old 
file, changing it, and rewriting it under 
the same or a different name. 

Once the character sets are defined, 
you can easily invoke them from your 


Listing 1: 


19g ' Sample driver for 
110 SCREEN 2 
12g CLS 


Character 


own program without using the charac- 
ter editor. Just change the &H7C through 
&H7F locations as in the graphics editor 
to point to your own memory area or 
the memory area used in the graphics 
editor. The &H7E and &H7F locations 
must be changed to the location of 
BASIC's data segment as in the editor. 
The &H7C and &H7D must be changed to 
point to the offset within BASIC as 
before. See Listing 3. 


Listing 3: 


199 CLEAR ,19999! 
119 
129 


BUFFER = 29999! 
SCREEN 2 

139 
POKE &H7F, PEEK(&H511): 


BLORD “name”, ΧΧΧΧΧ 


The xxxxx offset parameter is not 
necessary if you're loading the character 
set into the same area that was used in 
creating the data. If you're loading into 
another area, use the offset of the area 
in the BLORD command. 

As many BLOADs as necessary can be 
done with as many character sets as 
you've defined. Within the BASIC pro- 


DEF SEG = Ø: POKE &H7E, PEEK(&H519): 
POKE &H7C, 


BUFFER - INT(BUFFER/256)*256: POKE &H7D, INT(BUFFER/256) 


149 DEF SEG 


Prior to loading in a character set, the 
memory area to be used must be pro- 
tected by the CLEAR ,xxxxx statement. 
This prevents BASIC from clobbering 
the character data as it uses memory for 
stack and string storage. Any conven- 
ient area that can be protected can be 
used, dependent upon the size of mem- 
ory in your system, size of BASIC pro- 
gram and so forth. The one used in 
Listing 3 is usable with a 128K system. 

The character set is loaded by a 
BLOAD command of the form 


Expander 





gram, use the character set by CHRS 
statements with values of 128 through 
255. 

And that’s the story of how to add 
any number of characters to your 
graphics screens. A little manipulation 
with pointers and some creative editing 
for the character set, and you have 
Japanese Kata-Kana or your own spe- 
cial characters. There are other tricks 
that can be used for character genera- 
tion and we'll use some of them in future 
columns. See you next month. m 


139 CHS = 
149 CHS 


CX 
CX 
CX 
Cx 


: XSC 
: XSC 
: XSC 
: XSC 


: GOSUB 19999 
: GOSUB 19999 
: GOSUB 19999 
: GOSUB 19999 


100: 
199: 
100: 
199: 


"Tandy": 
"Tandy": 
150 CH$ "Tandy": 
16g CH$ = "Tandy": 
179 GOTO 179 

180 ' 

199 ' 


=================== 


1gggg `— 


19919 Character Expander Subroutine 

19929 ' Input: CH$ = Character string 

19939 = current x position 
19949 = current y 

19959 = x scale factor - 1 ton 
19969 = y scale factor - 1 ton 
19979 updated 

10080 updated 

19999 ' 

19199 DEF SEG = δΗΕΡΡΡ 

19119 FOR Z.SI = 1 TO LEN(CH$) 

19129 CH = ASC(MID$(CH$,Z.SI,1)) 
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19139 FOR Z.I = g TO 7 
19149 Z.CHR(Z.I) = PEEK(&HFA6E + CH*8 + Z.I) 
19159 NEXT 

19169 FOR Z.Y = g TO 7: FOR Z.J = 1 TO YSC: FOR Z.X = g TO 7: FOR Z.X = g TO 7 
19179 Z.PIX = SGN(Z.CHR(Z.Y) AND 2 ^ (7 - Z.X)) 

19189 FOR Z.I = 1 TO XSC: PSET (CX, CY), Z.PIX: CX = CX +1 

19199 NEXT: NEXT: CX = CX - XSC * 8: CY = CY + 1: NEXT: NEXT: NEXT 

19299 CX = CX + XSC κ 8: CY = CY - YSC κ 8 

19219 NEXT Z.SI 

19229 DEF SEG: RETURN 


CLEAR ,19999! 'change these as required 
BUFFER = 29999! ' " " " " 
SCREEN 2 
KEY OFF: ON ERROR GOTO 3439 
18g DEF SEG = Ø: POKE &H7E, PEEK(&H519): POKE &H7F, PEEK(&H511): 


POKE &H7C, BUFFER - INT(BUFFER/256)*256: POKE &H7D, INT(BUFFER/256) 
199 DEF SEG 
266 CLS 
219 LOCATE 1, 25: "G RÀ P H ives BD ILT/O BY 
22% LOCATE 3, 27: "1. Read in old file" 
239 LOCATE 4, 27: "2. Save characters in file" 
249 LOCATE 5, 27: "3, Edit character" 
259 LOCATE 17, 16 


279 PRINT "912345678998123456789912345678991" 
289 FOR Z.I = g TO 3 
299 LOCATE 19 + Z.I * 2, 1: PRINT USING "### to ###"; Z.I * 32 + 128, 


Z.I w 32 + 159; 
399 NEXT Z.I 
319 FOR Z.I = g TO 3 


329 
339 
349 
359 


LOCATE 19 + Z.I * 2, 16 
FOR Z.J = 9 TO 31 

PRINT CHR$(128 + Z.I * 32 + Z.J) +" "; 
NEXT Z.J 


369 NEXT Z.I 

379 LOCATE 6, 2g: PRINT " 

380 LOCATE 6, 36: PRINT "Your choice: " 

399 A$ = INKEY$: ΤΕ A$ = "" THEN 399 ELSE Z.RES = VAL(AS) 
499 IF Z.RES < 1 OR Z.RES > 3 THEN 379 

419 ON Z.RES GOTO 1929, 2929, 3919 


1919 ' 1. Read in Old File 

1020 LOCATE 6, 29: PRINT " 

1939 LOCATE 6, 39: INPUT "Input File: ", 
1949 IF Z.RES$ = "" THEN 379 

1959 BLOAD Z.RESS$ 

196% GOTO 319 
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2919 ' 2. Save Characters in File 
2929 LOCATE 6, 29: PRINT " 3 
2939 LOCATE 6, 39: INPUT "Output File: ", Z.RES$ 

2949 IF Z.RES$ = "" THEN 379 

20560 BSAVE Z.RES$, BUFFER, 1924 

2969 GOTO 379 
3919 ' 3. Edit Character 

3929 FOR Z.I = 7 TO 15 

3939 LOCATE Z.I, 36: PRINT " di 
3949 NEXT Z.I 

3050 LOCATE 6, 24: PRINT " " 
39860 LOCATE 6,24: INPUT "Character number (128 - 255): ", Z.RES 

3079 IF Z.RES < 128 OR Z.RES > 255 THEN 3959 

3989 FOR Z.I = g TO 8 

3999 LINE (281, Z.I * 8 + 55) - (345, 2.1 κ 8 + 55) 

3199 NEXT Z.I 

3119 FOR Z.I = g TO 8 

3129 LINE (Z.I * 8 + 281, 55) - (Z.I * 8 + 281, 119) 

3139 NEXT Z.I 

3149 FOR Z.R = g TO 7 

3159 Z.CH = PEEK(BUFFER + (Z.RES - 128) * 8 + Z.R) 

3169 FOR Z.C = Ø TO 7 

3179 Z.PIX = Z.CH AND 2^(7 - 7.0) 

3189 IF Z.PIX — 6 THEN PAINT (Z.C * 8 + 285, Z.R * 8 459) 

3199 NEXT Z.C 

3200 NEXT Z.R 

3219 LOCATE 6, 24: PRINT " Ῥ 
3226 LOCATE 6, 24: PRINT "Arrows-move; I-Ink toggle; Q-Quit"; 

3239 Z.X = 317: Z.Y = 91: 2,.I = δ: PSET (σι S SD 

3249 IF Z.I = 1 THEN LINE (Z.X - 3, 2. Y S 3) - (Z.X + 3, Z.Y + 3),1,BF 



















ELSE LINE (XX — 3, Zit - 9) = (QE 93, 2. 4 3), B; BR 

3259 IF Z.I = 9 THEN PSET (Z.X, Z.Y) 

3269 Z.CH = PEEK(BUFFER + (Z.RES - 128) * 8 + (Z.Y - 59) / 8 ) 
3270 IF Z.I = 1 THEN Z.CH = Z.CH OR 2 ^ (7- (Z.X - 285) / 8) ELSE 





Z.CH = Z.CH AND (255 XOR 2 ^ (7 - (Z.X - 285) / 8 )) 
3289 POKE (BUFFER + (Z.RES - 128) * 8 + (Z.Y - 59)/ 8 ), Z.CH 
3299 LOCATE 19 + INT((Z.RES - 128)/ 32 ) * 2, 16 + (Z.RES AND &HlF) * 2 
3399 PRINT CHR$(Z.RES); 
3319 Z.A$ = INKEY$: IF Z.A$ = "" THEN 3319 
3329 IF Z.A$ = "i" OR Z.A$ = "I" THEN Z.I = Z.I XOR 1 ELSE 3349 
3339 GOTO 3249 
3349 IF LEFT$(Z.A$,1) <> CHR$() THEN 3419 
3359 Z.A$ = RIGHTS$(Z.A$, 1) 
3369 IF Z.I = Ø THEN PRESET (Z.X 












y 
3379 IF Z.A$ = CHR$(77) THEN IF Z.X < 341 THEN Z.X = Z.X + 8: GOTO 3249 
3389 IF Z.A$ = CHR$(75) THEN IF Z.X <> 285 THEN Z.X = Z.X - 8: GOTO 3249 
3390 IF Z.A$ = CHR$(72) THEN IF Z.Y <> 59 THEN Z.Y = Z.Y - 8: GOTO 3249 
3499 IF Z.A$ = CHR$(8%) THEN IF Z.Y < 115 THEN Z.Y = Z.Y + 8: GOTO 3249 
3419 IF Z.A$ ο "q" AND Z.A$ <> "Q" THEN 3249 ELSE 379 


ο μπω νι καμιά ila oir ier Ge e eti hap ee EE 
3439 ' Error trap 
3449 IF ERR = 53 THEN LOCATE 6,22: PRINT "File not fnd. Press a key to continue" 






ELSE ON ERROR GOTO 6: RESUME 
3459 A$ = INKEY$: IF A$ = "" THEN 3459 ELSE RESUME 379 


3 4 69 !==================================================================== 
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Code. There, now do you feel better 
about having some difficulty learning 
such a basic sounding language? 

Bug — The term “bug” comes from 
the early days of computing when actual 
insects would get inside the computer 
and cause problems. Today this is 
unlikely to occur, but it isn't unlikely 
that you will discover programs full of 
bugs, which cause lots of problems and 
are as difficult to eliminate as any 
mosquito. A bug is a programming 
error. 

Benchmark — A term you will often 
hear used when describing the relative 
merits of different computers. A bench- 
mark is simply a standard program that 
is run on a number of different ma- 
chines (or using a number of different 
pieces of software on the same ma- 
chine). The relative speeds can then be 
directly determined by comparing the 
time required to execute (see execute) in 
each environment. This often leads to 
problems because the standard bench- 
marks may bear little relationship to the 
work you actually want to do, and it 
often turns out that the "fastest" ma- 
chine (software) according to the bench- 
mark tests is not the fastest in actual 
usage. Still, it is often all we have. 

CAD/CAM — CAD stands for 
Computer-Aided Drafting (Drawing) 
and refers to software designed to let 
you draw patterns on the computer 
screen and use the computer to assist in 
editing your work. CAM is Computer- 
Aided Manufacturing and indicates 
actual physical control of some ma- 
chine(s) by the computer (the computer 
and controlled machine together are an 
industrial robot). 

Clock Speed — All computers use 
some sort of a clock to control the 
activities of the various memory, logic 
and switching functions that make up 
computing. Just as an electric clock is 
controlled by the steady 60-cycle-per- 
second house current, everything inside 
a computer is synchronized by its clock 
chip. In some cases, you can change this 
clock speed and thereby speed up the 
computer's operation. When compar- 
ing clock speeds of various computers 
the numbers aren't all that helpful; the 
actual throughput (see throughput) of 
your work depends on many other 
factors relating to the efficiency of your 
software and hardware. 

Compatible — This can mean any- 
thing from virtually identical in every 
way to vaguely similar depending on 
what sort of compatibility you are 
talking about. For example, an ap- 
(Ow AE IRURE Sa ED ES QUA 
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Do You Want A Real Warranty... 


or will you settle for a vague promise? 


S 1977, we have operated a Radio Shack Authorized Sales Center (ASC), in the city 
of Grapevine, Texas. This will be significant for you only if (a) you want a warranty 
which you can exercise easily, if necessary and (b) the reassurance of our long term stability 
and business ethics. 


When you buy a Tandy/Radio Shack product from us the Tandy/Radio Shack Warranty will 
accompany it and the warranty and service will be available to you, anywhere in the U.S. 


We will not install any foreign parts which might, and probably will, have an adverse affect 
upon your warranty. We will assist you in obtaining local support, should you experience 
difficulty, and will make an offer to buy-our-product-back* (hardware)if it dissatisfies you, 
within 30 days. 

"We ship fast," has always been our motto and if anyone is offering you a lower price, we 
suggest you ask about the foreign parts (and warranty) before closing the deal. We will 
"NOT meet-or-beat'' a lower price so you can be sure you have our best quote the first time, 
and our toll-free phone lines (outside Texas) make the quote easy for you to get, from 9 a.m.- 
5 p.m. central time, Monday thru Friday. (*For a small handling charge) 


TOLL FREE 1-800-433-SALE 


326 Main St. Grapevine, Texas 76051 


TEXAS BUYERS ADD 5%% SALES TAX 





pliance is compatible with a wall socket 
if the plug fits and it operates correctly. 
It is still compatible if it has a new 
polarized plug but won't go into the old 
wall socket — it will work if you make 
a small change to the plug, i.e., it uses 
110 volts and 60 cycle current. It will be 
incompatible if it has a totally different 
kind of plug and won't work on house 
current even if you change plugs. 

Compiler/Interpreter — Terms that 
describe the way a language operates 
(you must usually buy a language separ- 
ately to talk to the computer). If you 
have an interpreter, a program you 
write is interpreted one line at a time 
into another language (machine lan- 
guage) and stored until the entire pro- 
gram is translated. The computer then 
executes the program. 

In a compiled language, the program 
is compiled one time (after all the bugs 
are corrected) and the resulting machine 
language is stored. Any time after that 
you just run the compiled version di- 
rectly, saving the program you wrote 
(called the source code). A language is 
either interpreted or it needs a compiler. 
BASIC can be either, but the version that 
comes with most computers is inter- 
preted. 

The reason you might want an inter- 
preter is that for short programs it is 
quite fast enough, and you don't have 
to wait for a new program to “compile,” 
which can take awhile. An interpreter is 
by far the best choice if you write many 
short programs and make lots of 
changes to them. 

Controller — (disk, mouse, etc.) The 
part that handles the transfer of data 
between the computer and the device. A 
disk drive by itself will do nothing until 
connected to a controller; the same goes 
for a mouse and other devices. 

Disk Drive (bare) — A bare disk 
drive comes without a case and often 
without a power supply, so it is not a 
great bargain unless you know how to 
put all the parts together. 

Copy-protected — The dreaded de- 
scription of a piece of software that 
means you can't make a backup copy 
for use in the event the original program 
fails to work due to a problem with the 
disk. There is usually a way to get 
another copy from the manufacturer, 
but this is sometimes complicated and 
takes time. Some programs are semi- 
protected (my term) in that you can 
copy a working copy onto a hard disk, 
but then the original no longer works. 
This is only a marginal improvement 
because you need to know you are going 
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to have trouble with the hard disk in 
order to copy the program back onto 
the original disk, thus making it *good" 
again. 

Disk zap — A utility (see utility) that 
is helpful in recovering the data from a 
damaged or worn disk. “Down” is when 
the computer won’t work. “Up” means 
the system is working. 

Expansion board — A printed circuit 
board that fits into slots on the compu- 
ter. These expansion boards slide into 
the back of a Tandy 2000, and in some 
other computers fit into slots internally. 
For these you must open the case of the 
computer to install new boards, but this 
is asimple procedure and normally does 
not require the computer to be taken to 
a dealer. 

Expansion Memory — Memory that 
is added to what originally came with 
the computer, either on the mother 
board (see mother board) or an expan- 
sion board. 

Socketed 0-256K(512K) — (referring 
to an expansion memory board) This 
means there are empty sockets installed 
on the expansion board, and you can 
either install your own chips at a later 
time or order it with up to the full listed. 
amount already installed. 

Execute — 1) Perform or do, as in the 
program executed (run). 2) What you 
(or your spouse) sometimes want to do 
to the person who introduced you to 
computers. 

Floating Point — A number that has 
a decimal point in it rather than an 
integer (1, 2, 3, 56, etc.). 

Freeware — A concept for marketing 
software that could be the answer to 
your prayers. Freeware is easily availa- 
ble and copies can be made for friends, 
but you are obligated to make a contri- 
bution to the author if you find the 
program useful. Otherwise, you are 
requested to erase it from your system. 
Freeware is simply the honor system 
applied to software sales. 

Public domain — Actually is free. 
Software in the public domain has been 
donated by the author-owner to the 
public and is free for all to use, but not 
to sell as their own. 

Hard disk — This is like a bunch of 
floppy disks glued together, or a small 
record. It is sealed in a container and 
because it is more rigid, the tolerances 
it operates under are more accurate, so 
more information can be stored on it 
and it can operate at a much faster rate. 

Disk cartridge — A kind of hard disk 
that can be removed, allowing you to 
use one drive and have many cartridges, 


sort of like floppy disks. 

Tape cartridge — A special device 
that is used to back up or make copies 
of hard disk files. It uses special tapes 
and is not suitable for using in place of 
a hard disk for daily use. 

Internal/external disk drive — A 
description of whether the unit is in- 
stalled in the computer case or is a 
stand-alone unit that can be moved 
from one computer to another easily if 
desired. 

Interface — A term meaning "con- 
nection." It is used to indicate both the 
method of connection (parallel/serial, 
for example) and the actual physical 
device or connector (plug). 

Mean time between failures (MTBF) 
— A standard way of comparing com- 
ponents and refers to the average length 
of operating time between breakdowns. 

Mean time to repair (MTTR) — The 
measure of how long something usually 
takes to repair and, along with MTBF, 
is an important consideration in pur- 
chasing equipment. If you use a compu- 
ter for fun, these are less important than 
price, but if you use a computer to help 
earn a living, reliability becomes very 
important. 

Mother board — The large circuit 
board in a computer that really makes 
it work, as opposed to the expansion 
boards that offer a choice of options as 
to how you want the computer modi- 
fied. 

Modem/modem board — A modem 
is the device that translates the compu- 
ter's signals over telephone lines to 
another computer that has the same 
kind of modem to translate the signals 
back to computer-usable form (see 
protocol). 

A modem board is a modem mounted 
on a card that is user-installable in one 
of the slots inside the computer. This 
board usually fits in a "short" slot that 
isn't usable for most other expansion 
boards. 

An external modem requires a cable 
to connect it to the RS-232 serial port 
on the computer, but can also be used 
with almost any other computer. If you 
don't have an RS-232 connector you 
need to buy an expansion board con- 
taining one, but this board may also 
have a number of other functions (see 
multifunction board). 

Protocol — The method of translat- 
ing computer signals into telephone- 
compatible signals. There are several 
different protocols, and your modem 
must operate on the same kind as the 
one at the remote computer. 


Baud — 0-300, 1200 and 2400 are the 
most common Bauds, or speeds, mo- 
dems normally use to interchange data. 
The higher the number, the faster the 
transfer, but higher speeds require 
better phone connections. 

Acoustic/direct connect — An 
acoustic modem connects directly to a 
standard telephone handset and, there- 
fore, works with a pay phone or a hotel 
phone, but it is more susceptible to 
interference from local noise. A direct 
connect modem attaches directly to the 
standard “modular” clip connector 
found on many phones and is usually 
more reliable. 

Monitor/RGB/composite — A 
monitor is like a TV except it gives a 
clearer picture because it doesn't use the 
radio frequency signals needed to trans- 
mit TV. These same RF signals are 
generated by the computer, often caus- 
ing interference with a normal TV. The 
monitor can also have more lines than 
aTV. 

An RGB monitor needs a controller 
(driver) in the computer that sends a 
separate signal to each of the three 
*guns" (red, green and blue) found in all 
color TVs and monitors. A composite 
monitor needs a signal that combines all 
three signals. The two monitors are not 
compatible and cannot be inter- 
changed. 

Multifunction board — An accessory 
board that goes in the computer's ex- 
pansion slot and has more than one 
added function, such as more memory, 
real-time clock and RAM disk (see 
RAM disk). 

Multiprogramming/ multi-user/ mul- 
tiprocessing — These terms mean sev- 
eral functions are being performed 
simultaneously on the computer. For 
instance, when using a word processing 
program you can print out a file while 
editing another. 

Object code compatible — When one 
computer has a processor that is object 
code compatible with another compu- 
ter, most programs that operate on one 
will run on the other as well. 

Superset/subset (of instructions) — 
A computer (processor chip) uses all the 
same instructions as the original chip, 
with some new instructions added. The 
one with the larger set of instructions is 
said to have a superset and the other a 
subset of instructions, in relation to 
each other. The one with a superset runs 
all programs that work on the subset, 
but not vice versa. The instructions 
referred to are usually at the machine 
language level. 
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Party (first, second and third) — The 
first party is the computer manufacturer 
(in our case, Tandy), the third party is 
someone who makes items for use with 
first party equipment, and you are the 
party of the second part, the customer 
of either of the other two parties. 

PC/mainframe — A PC is a personal 
computer. A PC is small and inexpen- 
sive enough for a person or small busi- 
ness to use without a special operator. 
A mainframe computer is larger, more 
expensive and so complicated that it 
needs a special operator to run it. 

Print spooler — A software (or hard- 
ware and software) device that sets aside 
a portion of main memory to hold 
output going to the printer, thus permit- 
ting the computer to go on to other 
tasks while the work is being printed. 
Or, it is an expansion board that con- 
tains both the above mentioned soft- 
ware and some actual physical memory 
chips. 

Parallel/serial — Refers to whether 
the data being sent between devices is 
sent all eight bits at the same time along 
a lot of wires (parallel) or one bit at à 
time along fewer wires (serial). You need 
an adapter to change from one to the 
other, so a serial printer won't work 
directly from a parallel printer port just 
by changing wires around. 

RS-232/Centronics — RS-232 is a 
fairly standard method of sending serial 
data; centronics is the name often 
applied to both a physical connector 
and a method of sending parallel data. 

RAM disk —Software that partitions 
a portion of main memory and makes 


the computer think it is a very fast disk. 
It is used like any other disk except it 
doesn't keep anything after power is 
turned off. A RAM disk is also a soft- 
ware/hardware combination that 
comes on an expansion board. 

Real-time clock — It has nothing to 
do with the speed of the computer. A 
real-time clock is a piece of hardware 
which is almost always on a board with 
other items, that performs the odious 
task of setting the computer's time and 
date when the computer is turned on. It 
has asmall battery that keeps time while 
the main current is off. If you are getting 
a multifunction board with this clock it 
certainly is a useful addition. 

Throughput — What comes out of 
the computer. For example, the number 
of letters written and printed out in a 
particular period of time on a word 
processor is its throughput. 

Utility — A program whose purpose 
is to assist in using the computer. In 
other words, a utility is intended to 
make the computer easier to use. 

UNIX/Xenix/OS-9 — These are 
similar operating systems (different 
from MS-DOS) that allow several users 
to hook up terminals to a computer and 
operate more than one program at the 
same time. Third parties sell add-on 
expansion cards that contain a different 
CPU (Central Processing Unit) family, 
the 68000 family, as opposed to our 
8088 or 80286 CPUs. This new chip is 
well-suited to UNIX, etc., and permits 
you to greatly expand the capabilities of 
your computer, making it similar to the 
Tandy 6000. 


Reductions of actual signs 


Ware (hard, soft, firm and live) — 
Hardware is something physical like 
your computer or printer. Software 
comes on a disk or printed on paper. 
Firmware is information or a program 
that is fixed in a computer chip, such as 
some BASICS, and isn't accessible for the 
user to change. Liveware is you, the 
user. 

8088 — The chip (manufactured by 
Intel) that forms the thinking heart of 
your Tandy 1000 and 1200. 

8087 — The Intel co-processor chip 
specifically designed to do the math 
processing for the 8088. If your pro- 
grams can take advantage of it, your 
math computations take much less 
time. The 8087 can be added to the 1000 
and 1200, but your software must be 
capable of using it to get any advantage 
from this approximately $200 micro- 
chip. 

80186 — The CPU used in the Tandy 
2000. 

80286 — The CPU chip installed in 
the Tandy 3000. 

4164 — The common part number of 
memory chips that are used in the 1000 
and 1200. The 4164 chip has one bank 
of 64K memory. 

41256 — A one by 256K memory chip 
used on some computers. It can be 
installed in recent 1200s to replace the 
64K chips, thus upgrading memory. 


I hope this glossary proves helpful 
and gives you just one more reason to 
keep your back issues of PCM for- 
ever! PCM] 
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MI The Integrated Desk 


A primer on DeskMate’s Text editor 


A Look at Text 


ometimes it’s easy to forget where 
S you've been. This is especially 

true when you get involved with 
computers. At first, everything seems 
complicated or strange. Soon, however, 
you feel like it's all quite simple and 
using the computer becomes second 
nature. 

I was reminded of this in a letter from 
a reader who was having problems with 
some of the "simple" features of Desk- 
Mate. Notice I put the word simple in 
quotes. That's because if you are new to 
anything it can seem complicated. This 
month I want to concentrate on a few 
of the basics found in the Text section 
of Desk Mate. Even if you've been using 
Desk Mate a long time I think you might 
find some helpful information, and it's 
a good chance to refresh your memory 
on some of the more obscure features 
found in Text. 

Let's face it, the manuals that come 
with Desk Mate leave a lot to be desired. 
If you're used to using a computer, you 
may have found the manuals adequate. 
If you look at them from the point of 
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By Bobby Ballard 


view of a first-time computer owner, the 
view looks bleak. There is a lack of 
information about the machine in 
general and some of the machine fea- 
tures that can cause problems. 

Though the manuals may be insuffi- 
cient, you should read both and follow 
the tutorials through to the end, includ- 
ing successfully completing the inde- 
pendent exercises — especially before 
putting a particular section to serious 
work. I get letters with questions whose 
subject matter is completely covered in 
the manuals. Don't let the title of the 
second manual, DeskMate: A Refer- 
ence Manual, fool you into not reading 
it. Sure, it's a reference manual, but it 
is written for immediate consumption. 
You might be surprised at what you find 
there. 


The Printer Connection 

I might have mentioned this before, 
but I think it bears repeating. Make sure 
the cable from your printer to the 
computer is connected correctly. The 
correct way on a Tandy 1000 is with the 
cable exiting the connector from the 
bottom when connected to the compu- 
ter. I think this is probably the most 
often encountered problem for first- 
time owners. 

By the way, the connector to the 
printer only connects one way. It is 
impossible to incorrectly connect the 


1000/1200/2000/3000 


printer end of the cable without using 
force. I wonder why Tandy didn't use 
the same idea on both ends? 


The Keyboard Influence 

Another "problem" that occurs can 
be blamed on the design of the key- 
board. It is not a problem as long as you 
know about it. The keyboards on most 
computers are designed to repeat the 
keystroke if the key is held down longer | 
than a certain delay time, usually | 
around 1.5 seconds, set by the operating 
system. In addition, the keyboard has a 
keystroke buffer that holds your key- 
strokes until the system can process 
them. If you don't know this, you can 
be in for some confounding experienc- 
es 


















The two above features of the key- 
board are active while in MS-DOS and 
in most other application programs. 
Some software allows you to turn off or 
adjust the keyboard delay or buffer or 
both. Desk Mate does not allow for this 
and I really think it's not needed as long 
as you know about the keyboard fea- 
tures and how they affect the behavior 
of your software. 

Both of these features can make your 
software act as if it just went off the deep 
end, when, in fact, it's just processing 
the keys in the buffer. When this 
happens, pressing a key only com- 
pounds the problem instead of solving 





it — especially if you hold the key down, 
unsuspecting of the keyboard repeat 
feature. 

At other times you may fly past a 
prompt for important information. 
Once again, this is caused by the pro- 
gram processing stored keystrokes. You 
could be inadvertently entering unnec- 
essary keystrokes by pressing, for exam- 
ple, the ENTER key after a response to 
a prompt that doesn't require you to do 
so. 

You may think this is silly, but I've 
seen it time and time again: a new user 
asking why a program whizzes by a 
certain prompt without a chance to 
enter a response. The best way to solve 
this problem is to never type more 
keystrokes than necessary When an- 
swering prompts, try using just one 
keystroke without pressing ENTER ex- 
cept when you are entering a filename 
or other obvious string data. 

This might seem obvious or trivial at 
first, but the point was driven home 
recently when I sat down at a friend's 
AT clone and had a devil of time using 
his CAD program until he told me he 
had recently “boosted” his cursor speed 
and repeat delay. After that, I made a 
quick adjustment to the information 
and my problems cleared up completely. 
I realized how easy it is to overlook the 
simple things after having been at it for 
a few years. With that premise, I want 
to tour each of the sections of Desk- 
Mate, starting with Text, keeping in 
mind the less obvious and "simple." 


The Tour 

Let's get started with the tour. We'll 
start with the first menu selection and 
move across the screen. The first two 
selections, Find and Substitute, are 
closely related. Find locates all occur- 
rences of a particular string, while 
Substitute finds and replaces one string 
of text with a new string of text. 

The Find function is not "case sensi- 
tive." This means it does not care 
whether the text is upper- or lowercase 
to find a match. The following strings 
are equal in a Find operation, Fast, 
fast, FAST and FaSt. If it were case 
sensitive, only Fast would match Fast 
and not fast or any other combination 
of upper- and lowercase. 

When using Substitute, Desk Mate 
begins to search for each occurrence of 
the search string. When it finds a match, 
DeskMate asks if you would like to 
make the switch or not. Answer with Y 
to replace with the new text and N to 
continue searching the next occurrence 
of the search string. 





The next function works like a toggle 
switch. When in one mode it switches 
to the other when invoked by the ap- 
propriate function key, in this case, F3. 
This toggling function switches between 
inserting and overstriking text. It is a 
pretty straightforward feature but can 
still be confusing as you will see. 

Even to the seasoned computer user, 
this next example could be confusing. 
The menu at the bottom of the Text 
screen has a pair of choices for function 
key F3 that can be misleading. In one 
mode, F3 has *Add" below it and, when 
pressed to enter the other mode, has the 
selection “Replace” below it. Since it 
immediately follows the Find and Sub- 
stitute functions, isn't it logical that 
Replace is related to finding and substi- 
tuting? Well, no, not this time. 

This time it takes the place of the 
INSERT key already found on the key- 
board. So Add really means Insert, and 


“The Merge function is 
very easy to understand 
and wouldn't normally 
give you a pause, 
except for an error in 
either the manual or 
program." 


Replace really means Overstrike in 
traditional word processing terms. I'm 
sure this is to keep compatibility of 
Desk Mate versions among different 
machines more manageable — espe- 
cially considering that some machines, 
even Tandy models, do not have an 
INSERT key. 

The next function, Format, is a mis- 
leading title for a single and simple 
function. This is really the line width 
setting. If it also allowed you to set 
margins and other crucial variables, it 
would be properly named. However, 
lacking these features it's best to re- 
member this function really only han- 
dles line width. 

Don't miss this point, though, when 
it comes to the Format or line width 
function. It does affect the margins of 
your text, but you cannot directly set 
the margins with Format. For example, 
a line width of 70 leaves margins of five 
on each side of the document. A line 





width of 60 leaves margins of 10 on each 
side. However, you cannot have a line 
width of 60 and margins of 15 and five, 
which still totals 80, because the Format 
command only supports line width and 
it automatically centers the text on the 
line. 

The Merge function is very easy to 
understand and wouldn't normally give 
you a pause, except for an error in either 
the manual or program. (I suspect the 
program is the one in error.) The func- 
tion works correctly but the prompt for 
the file to merge does not say Enter 
merge filename: as stated in the 
reference manual. Instead, you get a 
prompt exactly like the one found in the 
Save feature. It says Enter save file- 
name: when, in fact, it wants the name 
of the file to merge into your document. 
Remember to position the cursor where 
you wish the merged text to begin 
appearing before selecting this function. 
Enter a blank filename to abort the 
Merge operation. 

The function found at F6 is for saving 
your document without exiting the Text 
section. Use this feature often, particu- 
larly when you are working on impor- 
tant data. This allows you to keep a 
copy of your work on disk, as you 
compose, without leaving the Text 
section of Desk Mate. Also remember 
that when exiting the Text section using 
F12, your latest changes are automati- 
cally saved unless you use the SHIFT key 
in combination with F12. 

This can be another confusing point 
for the first-time owner. When using F12 
to exit Text, the program automatically 
saves the document using the 
same file given as when it was created. 
That's easy enough. But if you don't 
wish to save the changes, what do you 
do? Use SHIFT-FI2 and answer the next 
prompt with a Y. The prompt is confus- 
ing because it asks if you want to 
Cancel Edit (Y^N). An answer of N 
saves the file with the latest changes 
included. 

The next four features found in the 
main menu of Text are all related to 
each other. In this case, Select is espe- 
cially important to the next three com- 
mands. Select does exactly as it says it 
will, it selects text for performing other 
operations. When you Select text, it is 
highlighted to help you easily see the 
block of text you will be using. One 
point important to note about Select 
concerns the rapid cursor movement 
commands. If you remember that CTRL 
and the arrow keys along with SHIFT 
and the arrow keys work in Select just 
as they do in normal edit mode, you're 
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covered. If you are unfamiliar with the 
rapid cursor movement capabilities of 
Desk Mate, refer to your manuals for 
details. You will save yourself hours 
with this knowledge. 

Once you have selected the text, you 
can do several things with it, one of 
which is copy it to another disk file or 
buffer in memory. Copy really works in 
two different ways, which can be con- 
fusing to the first-time user. Come to 
think of it, it was pretty confusing to me 
at first. 

Remember that Copy can deal with 
text that has been Selected and Text 
that is in a file on diskette. If you have 
previously Selected text, pressing F8 
seemingly causes nothing to happen. In 
reality, the text just selected is copied to 
an area of the computer's memory to be 
Inserted (more on this later) elsewhere 
into your text. This includes moving 
data across files and across applications 
— thus the integrated nature of Desk- 
Mate. 

If you have not previously selected 
any text and you press F8, you are 
greeted with the prompt From: To: and 
you can move diskette files in and out 
of the buffer described above. If you 
have previously selected text and wish 
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to call up the alternate Copy function, 
press F8 again. This calls up the above 
prompt to allow for diskette file input 
and output. 

When you first see the From: To: 
prompt, your cursor will be flashing at 
the From: prompt waiting for a file- 
name. At this point, you may enter a 
filename and press ENTER or you may 
press ENTER, thus moving the cursor 
beside the To: prompt. 

Now that you know exactly how the 
Copy function works, you can achieve 
some pretty sophisticated file merges 
using Desk Mate. This is one of Desk- 
Mate's strongest points. 

The Delete command also works in 
two different fashions. If you have 
previously selected text (F7), the Delete 
function erases the selected text. If no 
text has been selected, Delete just erases 
the character under the cursor. This is 
exactly the same as the DELETE key on 
many keyboards. 

The last function listed is Insert. 
Insert works somewhat like Merge but 
involves the contents of the copy buffer 
regardless of the source of the buffer. If 
you copy a file from the diskette into the 
copy buffer and press F10, that file 
would be inserted into the current 
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document beginning exactly where the 
cursor is located. But, with Insert you 
can also select text in the current doc- 
ument, copy it to the buffer, move the 
cursor and insert the same text at a 
different location in the same docu- 
ment. This is a handy feature and it 
works rather fast, even with large files. 
The only time I've found Text to slow 
down is with scrolling long documents; 
other functions work very fast. 

Insert is the last command listed on 
the screen, but it's not the last function 
available. Another function not listed is 
Print. On the Tandy 1000 and 2000 you 
press the PRINT key to print a docu- 
ment. The Tandy 1200 version uses the 
PRT SCRN key. Check the manual for 
your version of Desk Mate and how the 
Print function works. Just remember to 
set your printer parameters using the 
ALT-F6 first. 

I will cover the alternate functions of 
Desk Mate in next month's issue. If you 
have any questions or comments on this 
article, don't hesitate to write or contact 
me on Delphi in the MS-DOS SIG. You 
may also write to the address listed. 
Please enclose a self-addressed, 
stamped envelope if you would like a 
reply to your letter. [PCM] 
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By Leonard Hyre 





ot long ago, I sat down to create 
N: simple phone number listing 
program for my own use. Then 
I figured, why not add a mailing list 
feature? With these two items accom- 


plished, it wasn’t long before a graphics 





title screen complete with a phone 
booth and ringing telephone was added. 

What’s a PC Phone Booth, anyway? 
It’s several things bundled together in a 
single package: a quick reference for 
phone numbers, a list of customers, 
Christmas card lists, mailing labels, or 
whatever kind of “list” you need. You 
can call up special “sublists” and have 
them printed out. For example, for a list 
of all “Widget” buying customers and 
their phone numbers, just enter Widget 
for the text string and phone list. At 
Christmas, just enter Christmas and 
choose mail labels. Every person on the 
list with “Christmas” in the remarks is 
printed out on a ready-to-go mailing 
label. Additionally, it is a learning 
experience for would-be programmers, 
with lessons in direct file access, graph- 
ics and general string manipulation. 

PC Phone Booth utilizes a simple 
highlighted command line to move 
between functions. The commands 
include Add Record, Edit Record, List 
Records, Print-Copy Records, Create a 
File and Kill a File. The space bar is 
used to move the highlighted choice bar 
from one selection to another. Pressing 
the ENTER key chooses the highlighted 
selection for further action. You can put 
everyone into one file or create separate 
specialty files. 

PC Phone Booth’s handiest feature is 
the ability to search for records using 
any string of text you choose (e.g., 
Christmas, 21613, Hyre, Big Spender, 
etc). For the sake of reference, should 
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you move files from one disk to another, 
all PC Phone Booth data files automat- 
ically use the extension .FON. 

The only part of the program that 
may need configuring is the mailing list 
printout, which may require a different 
tab offset or number of line feeds 
following a label printout. This is 
because of the many sizes and shapes of 
labels and the different printer setups. 

Direct Access Files are much like 
well-organized filing drawers, with each 
record having its own place for storage 
and the whole drawer having a handy 
reference system for finding particular 
pieces of information. If you follow 
through the listing, thinking of each 
portion of the program as a separate 
tool to perform one task needed by the 
program, you will be surprised at how 
it actually does make sense. 

Three sections of the program are 
devoted to actually working on the file 
records themselves. These are Create, 
Add and Edit. All of them follow this 
simple rule: If you open a file, don't 
forget to close it! This is a cardinal rule 
for file creation and manipulation. 

In the Create a File subroutine (lines 
270-530), you can see that once a file is 
open, you cannot get out of the subrou- 
tine without encountering close. You 
are asked to provide a filename, which 
must be eight or less characters. No 
extension is allowed since the program 
automatically assigns the .FON exten- 
sion. 

The file structure is defined by Line 
370, which tells the computer that each 
record in the file needs 30 "spaces" 
allocated as AS, 26 as BS, etc. Since all 
of our data is entered as string data to 
begin with, no conversion from numeric 
to string commands is required. 

Once a new file has been created, you 
can continue entering information into 
it as long as you like. Once it is closed 
the first time, the Add selection is used 
to enter additional records. The Edit 
function works in a similar manner, 
allowing you to rewrite any one or more 
of the individual strings in a record, 
then rewrite that entire record accord- 
ingly. 

Kill a File is the way to get rid of an 
unwanted file. This routine is found at 
lines 1400-1500 and is not at all compli- 
cated. The only thing to be careful 
about here is that you must be sure of 
your choice and the consequences of the 
same. As a safety measure, the program 
double-checks before performing the 
task of eliminating a file. 

The List and Print selections share 
many common features since both 
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require that the program locate and 
provide the user with specific files as 
required. Using the List section as an 
example, the user is prompted to select 
files by *browse" (look at all records 
starting at ‘1°), by specific number 
(select number of file record to look at) 
or to select by specific “text.” 

The third method gives PC Phone 
Booth the versatility to be useful and 
friendly to the user. Suppose you did 
want a list of all Widget buyers. By 
selecting search by text, the program 
goes through each record searching for 
an occurrence of Widget. Of course, if 
one of the people in the file is named 
George Widget, his name will come up 
also, so be specific. Just as easily, you 
can list out people with a particular ZIP 
code, phone number exchange, etc. 

Make good use of the remarks section 
of each record so the program works 
better for you. Would-be programmers 
might like to take a look at the use of 
the INSTR command in lines 1170-1240. 
When you elect to print out records for 
phone lists, mailing labels or whatever, 
similar routines to those for screen lists 
are used. 

In addition to the selection of specific 
records, options are given for four types 
of listings, including complete record 
with remarks, name, address and phone 
number, the name and phone number 
only, or a mailing label printout. Since 
names are normally entered last name 
first for records, the program must 
reverse them for mailing labels. The 
small routine in lines 2820-2880 per- 
forms this task. 

The fun part of writing the program 
was drawing the phone booth and 
making the phone ring properly. My 
family was beginning to lose patience at 
my constantly dragging them in to hear 
what the latest “phone ring” sounded 
like. When I had it sounding just right 
on the 1000, I thought I had it made. 
Then a computing friend loaded it into 
his 3000 and the ring sounded different. 
We finally came up with a ring that 
sounds “just about” right on either. 

PC Phone Booth should run fine on 
any configuration of the 1000. It also 
works on the 3000, which indicates 
across the board MS-DOS compatibil- 
ity among all the Tandy MS-DOS series 
and compatibles (like IBM). Since the 
2000 supports these same screens, no 
real problems should crop up there, 
either. 

If you have difficulty in getting the 
program to work correctly, feel free to 
contact me by mail or phone. My ad- 
dress is P.O. Box 403, Cambridge, MD 
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with 256K $319.95 — EM with 512K Q$149-  . CA residents 
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RAM Disk/ N/A | NAME 

Print Spooler | ADDRESS 
' 

Warranty 90 Days ! CITY STATE ΖΙΡ 

*with mouse i 
| TELEPHONE( ) 
' 
iM ' AT.D. 1287 Lawrence Station Rd., Sunnyvale, CA 94089 
e " ' ------” 


N ZUCKERBOARD PRODUCTS FOR THE TANDY 1000 


Mültüfüuncaon Βου ος ou. ο ών ον mi Sw ore $249 
Includes DMA controller chip, 512K memory, Clock/calendar with 20 year battery, 
Serial port, and Ramdisk/Print spooler software. 


Internal Hard Disk - LO RAG YC6 o oux er emn tmm ὁ $529 
CEU E bic ibd ait tice tune $599 
Half-height. Includes controller and cables. Mounts internally, above floppy drive A. 
Requires system with DMA already installed. 


CALL TOLL-FREE TO ORDER 
CA (800) 233-6874 
(800) 222-4920 


Dr. Dr. Zucker 





it’s another 


ZUCKERBGARID 


QTD 1287 Lawrence Station Road « Sunnyvale, CA 94089 « (408) 734-4631 


ZUCKERBOARD is a Trademark of Advanced Transducer Devices, Inc. 
TANDY 1000 is a Trademark of Radio Shack, a Division of Tandy Corporation. 


All prices subject to change without notice due to fluctuations in the chip market. 





21613; the phone number is (301) 228- 
0064 (from 5 - 11:00 p.m. EST). PC 
Phone Booth is available on PCM ON 
DISK or through the MS-DOS SIG on 
Delphi. Should you have a question or 
comment concerning the program, you 
can leave a message to MUNCH on the 


ANS 
—— 








MS-DOS SIG any weekend. O 
The listing: 
lg 'Xoeteeleleteieieleieieielieieleieieinieieleieieieke 
mami - : 
30 '* PHONE BOOTH by L. Hyre * 
4g '* (C) 1986 * 
50 '* * 
6 'eeleleicieleioieieieleiieieieleieieieieieieieteke 
7g " 
86 'FOR TANDY MS-DOS COMPUTERS [ Written On T19gg...May Be Slight Differences 
for T1299, T2999,T3999 ] 
9g ' 
1gg "κ GO DRAW PHONE BOOTH AND RING THE PHONE oew 
11g ' 
128 'GOSUB 3116 
13g ' 
149 "κ SET UP MAIN DISPLAY AREA INCLUDING MENU e 
159 ' 


160 KEY OFF:WIDTH 89:SCREEN 9,1:COLOR 2,9:CLS 

179 KEY(1) ON:ON KEY(1) GOSUB 3389 

180 TP$-CHRS(291)-«STRING$ (78,295)-CHR$ (187) : BT$-CHR$ (29g) *STRING$ (78,295) 4 CHR$ (1 
88) : SD$-CHR$ (186)+SPACES (78) +CHR$ (186) 

199 PRINT TP$;SD$;BT$:COLOR 12:LOCATE 2,29,9:PRINT'Inhe PH ON E - B OO T H ... 
Saxe ‘ete by L. Hyre 

200 PRINT:COLOR 14:PRINT TP$;SD$;BT$ 

219 LOCATE 5,3:COLOR 3:PRINT "Add Edit List (Selective) Print Copy Crea 
te (New) Kill (Existing) " :COLOR 15,4:LOCATE 5,3:PRINT"Add":COLOR 7,9 

220 PRINT:PRINT TP$;:FOR TM-1 TO 14:PRINT SD$;:NEXT:PRINT BT$:COLOR 4:LOCATE 24, 
1:PRINT STRING$(82,229);:LOCATE 25,62:COLOR 4,15:PRINT"[ Fl=QUIT ]"; 

23g GOTO 2926 

24g ' 

250 "οκ CREATE A 'NEW' PHONE FILE 

26g ' 

270 RC$-1:LOCATE 23,1:COLOR ,g:PRINT SPACES$(89):LOCATE 23,1:COLOR 14:PRINT"CREAT 


E - This Function CREATES New File.";:COLOR 4:PRINT" AVOID Duplícate File Name 
& TH? 


28g ' 
290 COLOR 15,9:LOCATE 8,4:PRINT "Name of FILE to create [No Ext]";:INPUT FI$ 


399 FOR EX-1 TO LEN(FI$):IF MIDS$(FIS,EX,1)-"." THEN FIS-LEFT$(FI$,EX-1):GOTO 31g 
:ELSE NEXT EX 


319 IF LEN(FI$) >8 THEN FIS$-LEFTS(FI$,8) 

329 FIS$=FI$+".fon":LOCATE 8,4:PRINT SPACE$(59):LOCATE 8,4:COLOR 3:PRINT"Creating 
File called ";FI$ 

339 OPEN "R",1,FI$,128 

34g ' 

359 ' *** DEFINE THE LENGTH OF EACH FIELD *ee* 

36g ' 

379 FIELD 1,30 AS A$,26 AS B$,28 AS C$,12 AS D$,32 AS E$ 

38g LOCATE 9,4:PRINT "Next Record #";RC% 

399 IF RC$»1 THEN LOCATE 21,4:COLOR 14:INPUT"Another [ Y/N ]";ANS:IF ANS="Y" OR 

ANS="y" THEN 49g ELSE 529 

499 LOCATE 19,4:PRINT"Enter NAME (Last Name First)...":LOCATE 11,9:INPUT ΝΜΦ 
41% LOCATE 12,4:PRINT"Enter Street or PO Box Address...":LOCATE 13,9:INPUT ST$ 
429 LOCATE 14,4:PRINT"Enter CITY - STATE - & ZIP CODE":LOCATE 15,9:INPUT CT$ 
439 LOCATE 16,9:PRINT"Enter PHONE Number:":LOCATE 17,9:INPUT PN$ 

449 LOCATE 18,4:PRINT"Enter REMARKS (32 Space Maximum):":LOCATE 19,9:INPUT RM$ 
459 LSET AS=NM$:LSET BS=ST$:LSET C$-CT$:LSET D$=PN$:LSET E$-RM$ 

469 PUT #1,RC% 


479 FOR WIPE=9 TO 19:LOCATE WIPE,4:PRINT STRING$(49," "):NEXT WIPE 
488 RC$-RC$41:GOTO 389 
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49g ' 

560 "κκ ALWAYS CLOSE THE FILE ! *** 

510 ' 

529 CLOSE 1 

53g GOSUB 3378:LOCATE 5,49:COLOR 3:PRINT M$(5):LOCATE 5,3:COLOR 15,4:PRINT M$(1) 
:GOTO 2929 

549 ' 

559 ' 

566 "κκ LIST a File wick 

579 ' 

586 LOCATE 23,1:COLOR ,g:PRINT SPACE$(8%):LOCATE 23,1:COLOR 2,g:PRINT"Selective 

List of Phone Booth entries..." 

599 LOCATE 8,4:COLOR 3:INPUT"NAME of File To Use [No .ext] ";FI$:IF FI$=""THEN 8 
3g 

699 FOR EX-1 TO LEN(FI$):IF MIDS$(FIS$,EX,1)-"." THEN COLOR 4:LOCATE 9,4:PRINT"ILL 
EGAL Filename!":SOUND 399,2:FOR P-1 TO 299g:NEXT:LOCATE 8,4:PRINT SPACE$(59):LOC 
ATE 9,4:PRINT SPACE$(58):GOTO 599:ELSE NEXT EX 

619 IF LEN(FI$)>8 THEN FIS$=LEFT$(FI$,8) 

620 FIS=FIS+".FON" 

639 OPEN "R",1,FI$,128 

649 FIELD 1,39 AS A$,26 AS B$,28 AS C$,12 AS D$,32 AS E$ 

650 SIZE-128 

669 LOCATE 21,55:COLOR 14:PRINT"Number of Records:";(LOF(1)/SIZE):IF (LOF(1)/SIZ 
E)=9 THEN LOCATE 19,4:COLOR 4:PRINT"No RECORDS in File by that Name!":FOR P-1 TO 


29g]g:NEXT:LOCATE 19,4:PRINT SPACE$(5%):LOCATE 8,4:PRINT SPACE$(5Q):CLOSE 1:GOTO 
59g 


670 RC$-1 

68g GOTO 899 

699 FOR MAX=1 TO (LOF(1)/SIZE) 

799 IF RC% =Ø OR RC% > (LOF(1)/SIZE) THEN 829 

719 GET #1,RC% 

720 LOCATE 9,4:PRINT "Record Number: ";RC$ 

739 IF VAL(CH$)<1 THEN 799 

748 LOCATE 19,4:PRINT"Name : "A$ 

750 LOCATE 11,4:PRINT"Street: "B$ 

769 LOCATE 12,4:PRINT"Cty/St: "C$ 

779 LOCATE 13,4:PRINT"Phone : "D$ 

789 LOCATE 14,4:PRINT"Remark: "E$ 

799 AKS=INKEY$:IF AK$-""THEN 799 

866 FOR WIPE=19 TO 15:LOCATE WIPE,4:PRINT STRING$(49," "):NEXT 

819 RC%=RC%$+1:NEXT MAX 

829 CLOSE 1 

830 GOSUB 3379:LOCATE 21,55:PRINT SPACES$(23):LOCATE 23,1:PRINT SPACES (89) 
849 LOCATE 5,16:COLOR 3,9:PRINT M$(3):LOCATE 5,3:COLOR 15,4:PRINT M$(1):GOTO 292 
g 

859 ' 

869 ' 

876 '*** MENU FOR SELECTIVE LISTING ος 

88g ' 

899 LOCATE 9,4:COLOR 2:PRINT"Select TYPE of LISTING you desire-":COLOR 15 
999 LOCATE 19,19:PRINT"1> Browse Through File" 

916 LOCATE 11,1%:PRINI"2> Specific Record by NUMBER" 

920 LOCATE 12,19:PRINT"3> Search by 'TEXT' Occurrence" 

939 LOCATE 14,4:COLOR 2:PRINT"Press NUMBER of Choice": LOCATE 13,19: PRINT" 
949 ΟΗΞΞΙΝΚΕΥΦ:ΤΕ CH$-""THEN 949 

959 IF VAL(CH$)«1 OR VAL(CH$)>3 THEN SOUND 399,2:GOTO 949 

969 FOR WIPE-9 TO 14:LOCATE WIPE,4:PRINT SPACE$(5g):NEXT 

970 ON VAL(CH$) GOTO 699,1919,1169 

98g ' 

999 'Jock SEARCH BY NUMBER Αποκ 

1999 ' 

1919 LOCATE 21,4:COLOR 13:PRINT"Enter g To EXIT To Menu":LOCATE 19,4:COLOR 15,1: 
INPUT"RECORD NUMBER TO VIEW";RC% 

1929 IF RC%=g THEN CLOSE 1:COLOR ,g:LOCATE 21,4:PRINT SPACE$(40):GOTO 839 
1939 IF RC%> (LOF(1)/SIZE) THEN LOCATE 11,4:COLOR 4,15:PRINT"No Such Record #":F 
OR P-1 TO 2999:NEXT:COLOR ,g:LOCATE 11,4:PRINT SPACE$(59):LOCATE 19,4:PRINT SPAC 
E$(52):GOTO 191g 

1949 GET #1,RC% 

1959 COLOR 2,@:LOCATE 12,4:PRINT"Name : "A$ 

1969 LOCATE 13,4:PRINT"Street: "BS 

1979 LOCATE 14,4:PRINT"Cty/St: "C$ 

1989 LOCATE 15,4:PRINT"Phone : "D$ 

1096 LOCATE 16,4:PRINT"Remark: "E$ 
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1199 LOCATE 18,4:COLOR 14:PRINT"Press ANY KEY for another Selectíon.." 

1119 AKS=INKEY$:IF AKS$=""THEN 1119 

1129 LOCATE 19,4:PRINT SPACE$(24):FOR WIPE-12 TO 18:LOCATE WIPE,4:PRINT SPACE$(5 
9) :NEXT WIPE:GOTO 1919 

113g ' 

1149 '*** STRING SEARCH *** 

115g ' 

1166 LOCATE 29,4:PRINT"Hit 'g' To EXIT to Menu":LOCATE 21,4:COLOR 13:PRINT "Any 
Other Key To Continue":LOCATE 19,4:COLOR 15,@:INPUT"Enter the Exact TEXT to matc 
h";ST$ 

1179 FOR MAX=1 TO (LOF(1)/SIZE) 

1186 GET #1,RC% 

1190 IF INSTR(A$,ST$) THEN 1259 

1299 IF INSTR(B$,ST$) THEN 1259 

1219 IF INSTR(C$,ST$) THEN 1259 

1229 IF INSTR(D$,ST$) THEN 1259 

1239 IF INSTR(ES,ST$) THEN 1259 

1249 GOTO 1339 

1250 LOCATE 9,4:PRINT"Record Number: ";RC% 

1260 LOCATE 19,4:PRINT"Name : "A$ 

1279 LOCATE 11,4:PRINT"Street: "B$ 

1289 LOCATE 12,4:PRINT"Cty/St: "C$ 

1299 LOCATE 13,4:PRINT"Phone : "D$ 

196 LOCATE 14,4:PRINT"Remark: "E$ 

131g AKS$-INKEY$:IF AK$-""THEN 1399 

1320 IF AK$-"g" THEN 1359 

1330 IF RC%=(LOF(1)/SIZE) THEN COLOR 15,4:LOCATE 16,4:PRINT"End of FILE Encounte 
red":SOUND 39g,2:FOR P-1 TO 1999:NEXT P:GOTO 1359 

1349 RC$-RC$-1:NEXT MAX 

1350 LOCATE 5,3:COLOR 15,4:PRINT M$(1):LOCATE 5,16:COLOR 3,9:PRINT M$(3):GOSUB 3 
379 

1366 CLOSE 1:GOTO 2999 

137g ' 

138g '»»* KILL [Utterly Destroy] A File ‘rx 

1399 ' 

1499 LOCATE 23,1:COLOR ,g:PRINT SPACE$(89):LOCATE 23,1:COLOR 13,9:PRINT"KILL - F 
ile Will Be Destroyed! Be CAREFUL!" 

141g LOCATE 9,4:COLOR 3,9:PRINT"Enter NAME of FILE to be KILLED ":LOCATE 1g, 
4:1NPUT KL$ 

1429 FOR EX-1 TO LEN(KL$):IF MIDS$(KL$,EX,1)-"."THEN 1439:ELSE NEXT EX:GOTO 1449 
1439 LOCATE 19,4:COLOR 4:PRINT"Illegal FILE NAME Do Not Enter the .EXT":BEEP 
:FOR P-1 TO 299g:NEXT:LOCATE 19,4:PRINT SPACE$(59):COLOR 3:GOTO 1419 

1449 KLS$-KL$4".FON":LOCATE 12,4:PRINT"Preparing to DESTROY FILE called ";KL$ 
1456 ON ERROR GOTO 1599 

1468 LOCATE 14,4:PRINT"Hit the Y key to KILL....any other key to CANCEL." 

1476 CH$-INKEYS:IF CH$-""THEN 1479 

1489 IF CH$-"Y" OR CH$-"y" THEN KILL KL$:FOR P-1 TO 1999:NEXT 

1496 LOCATE 5,64:COLOR 3,@:PRINT M$(6):FOR WIPE-9 TO 16:LOCATE WIPE,4:PRINT SPAC 
E$(69):NEXT:LOCATE 5,3:COLOR 15,4:PRINT M$(1):GOTO 2929 

1500 LOCATE 16,4:COLOR 15:PRINT"Sorry- NO SUCH FILE Existed!":FOR P-1 TO 2999:NE 
XT:GOTO 1499 

151g ' 

1526 '*»* ADD an Entry *** 

153g ' 

1549 LOCATE 23,1:COLOR 15,1:PRINT SPACE$(82):LOCATE 23,1:PRINT"ADD to Existing F 
iles":COLOR ,g 

1550 LOCATE 8,4:COLOR 2:INPUT "Enter Name Of FILE To Use";FI$:IF FI$=""THEN 155g 
1569 FOR EX=1 TO LEN(FI$):IF ΜΙΡΦ(ΕΙΦ,ΕΧ,1)-"," THEN COLOR 4:LOCATE 9,4:PRINT"I 
llegal FILE Name!":SOUND 399,2:FOR P-1 TO 29gg:NEXT:LOCATE 8,4:PRINT SPACES(59): 
LOCATE 9,4:PRINT SPACE$(58):GOTO 1559:ELSE NEXT EX 

1579 FI$-FIS$-«".FON" 

158g OPEN "R",1,FI$,128 

1590 FIELD 1,39 AS A$,26 AS B$,28 AS C$,12 AS D$,32 AS E$ 

169g SIZE-128 

1619 LOCATE 21,55:COLOR 14:PRINT"Number of Records:";(LOF(1)/SIZE):IF (LOF(1)/SI 
ZE)-9 THEN LOCATE 19,4:COLOR 4:PRINT"No RECORDS in File by that Name!":FOR P-1 T 
ο 29gg:NEXT:LOCATE 19,4:PRINT SPACE$(5%):LOCATE 8,4:PRINT SPACE$(5%):CLOSE 1:GOT 
0 1559 

1629 RCt=(LOF(1)/SIZE)+1 

163g LOCATE 9,4:PRINT"Adding Record #";RC% 

1649 LOCATE 19,4:PRINT"Enter NAME (Last Name First)...":LOCATE 11,9:INPUT NM$ 
1659 LOCATE 12,4:PRINT"Enter Street or PO Box Address...":LOCATE 13,9:INPUT ST$ 
1668 LOCATE 14,4:PRINT"Enter CITY - STATE - & ZIP CODE":LOCATE 15,9:INPUT CT$ 
1670 LOCATE 16,9:PRINT"Enter PHONE Number:":LOCATE 17,9:INPUT PN$ 
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1680 LOCATE 18,4:PRINT"Enter REMARKS (32 Space Maximum):":LOCATE 19,9:INPUT RM$ 

169g LSET AS=NM$:LSET B$-ST$:LSET C$=CT$:LSET D$=PN$:LSET E$-RM$ 

179g PUT *1,RC$ 

1716 GOSUB 3379 

1720 LOCATE 21,4:COLOR 15:PRINT"Add Another Record [ Y/N ]" 

1739 AKS-INKEY$:IF AK$=""THEN 1736 

1749 IF AK$-"Y" OR AK$-"y" THEN 1750 ELSE 1779 

175% LOCATE 21,4:PRINT SPACES$(49) 

1760 GOTO 1620 

1770 CLOSE 1:GOSUB 3379:GOTO 2999 

178g ' 

179g ‘x’ EDIT Existing File w*< 

189g ' 

181g LOCATE 23,1:COLOR 15,1:PRINT SPACE$(8%):LOCATE 23,1:PRINT"EDIT an Existing 

File":COLOR ,6 

182g LOCATE 8,4:COLOR 2:INPUT"Enter Name of FILE to use ";FI$:IF FI$-""THEN 1779 
1830 FOR EX=1 TO LEN(FI$):IF MID$(FIS$,EX,1)-"." THEN COLOR 4:LOCATE 9,4:PRINT"IL 
LEGAL Filename!":SOUND 399,2:FOR P-1 TO 299gg:NEXT:LOCATE 8,4:PRINT SPACE$(59):LO 
CATE 9,4:PRINT SPACE$(5%):GOTO 1559:ELSE NEXT EX 

1849 FIS=FI$+".FON" 

185g OPEN "R",1,FI$,128 

1866 FIELD 1,39 AS A$,26 AS B$,28 AS C$,12 AS D$,32 AS E$ 

1870 SIZE-128 

1889 LOCATE 21,55:COLOR 14:PRINT"Number of Records:";(LOF(1)/SIZE):IF (LOF(1)/SI 
ZE)=$ THEN LOCATE 19,4:COLOR 4:PRINT"No RECORDS in File by that Name!":FOR P-1 T 
O 2999:NEXT: LOCATE 19,4:PRINT SPACE$(59):LOCATE 8,4:PRINT SPACE$(5%):CLOSE 1:GOT 
O 1826 

1899 LOCATE 9,4:COLOR 2:INPUT"Enter Record Number to EDIT";RC$ 

1999 IF RC$ =Ø THEN 2969 

1919 IF RC$ > (LOF(1)/SIZE) THEN LOCATE 11,4:COLOR 4,15:PRINT"No Such Record #": 
FOR P-1 TO 2999:NEXT:COLOR ,@:LOCATE 11,4:PRINT SPACE$(5g):LOCATE 19,4:PRINT SPA 
CE$(5%):GOTO 1899 

1929 GET #1,RC% 

1939 LOCATE 19,4:PRINT"Change This:";:COLOR 15:PRINT A$;:COLOR 2:INPUT" Y/N";CG 
$:IF CG$-"Y" OR CG$-"y" THEN LOCATE 11,4:PRINT"Input  New";:COLOR 15:INPUT NM$:C 
OLOR 2:ELSE A$=NM$ 

1949 FOR WIPE=19 TO 11:LOCATE WIPE,4:PRINT SPACES$(69):NEXT 

1959 LOCATE 19,4:PRINT"Change This:";:COLOR 15:PRINT B$;:COLOR 2:INPUT" Y/N";CG 
$:IF CG$-"Y" OR CG$="y" THEN LOCATE 11,4:PRINT"Input  New";:COLOR 15:INPUT ST$:C 
OLOR 2:ELSE B$-ST$ 

1969 FOR WIPE=19 TO 11:LOCATE WIPE,4:PRINT SPACES$(69):NEXT 

1976 LOCATE 19,4:PRINT"Change This:";:COLOR 15:PRINT C$;:COLOR 2:INPUT" Y/N";CG 
$:1F CG$-"Y" OR CG$-"y" THEN LOCATE 11,4:PRINT"Input  New";:COLOR 15:INPUT CT$:C 
OLOR 2:ELSE C$-CT$ 

1989 FOR WIPE-19 TO 11:LOCATE WIPE,4:PRINT SPACE$(69):NEXT 

1999 LOCATE 19,4:PRINT"Change This:";:COLOR 15:PRINT D$;:COLOR 2:INPUT" Y/N";CG 
$:IF CG$-"Y" OR CG$-"y" THEN LOCATE 11,4:PRINT"Input  New";:COLOR 15:INPUT PN$:C 
OLOR 2:ELSE D$-PN$ 

2999 FOR WIPE=19 TO 11:LOCATE WIPE,4:PRINT SPACE$(69):NEXT 

2919 LOCATE 19,4:PRINT"Change This:";:COLOR 15:PRINT E$;:COLOR 2:INPUT" Y/N";CG 
$:IF CG$-"Y" OR CG$-"y" THEN LOCATE 11,4:PRINT"Input  New";:COLOR 15:INPUT RM$:C 
OLOR 2:ELSE ES-RM$ 

2020 FOR WIPE=19 TO 11:LOCATE WIPE,4:PRINT SPACE$(6):NEXT 

2939 LSET AS=NM$:LSET B$-ST$:LSET C$-CT$:LSET D$-PN$:LSET E$=RM$ 

2949 PUT #1,RC% 

2050 FOR WIPE-9 TO 11:LOCATE WIPE,4:PRINT SPACE$(6%):NEXT:GOTO 1899 

2060 FOR WIPE=8 TO 21:LOCATE WIPE,4:PRINT SPACE$(74):NEXT:CLOSE 1:GOTO 2999 

2979 ' 

208g "κά PRINTER OPERATIONS *** 

2999 ' 

2199 LOCATE 8,4:COLOR 14:INPUT"Input NAME Of FILE To Use";FI$:IF FI$-""THEN 2199 
2119 FOR EX-1 TO LEN(FI$):IF ΜΙΡΦ(ΕΙΦ,ΕΧ,1)-"." THEN COLOR 4:LOCATE 9,4:PRINT"IL 
LEGAL Filename!":SOUND 39g,2:FOR P-1 TO 299g:NEXT:LOCATE 8,4:PRINT SPACE$(59):LO 
CATE 9,4:PRINT SPACE$(5%):GOTO 219g:ELSE NEXT EX 

2120 IF LEN(FI$)>8 THEN ΕΙΞΞΙΕΕΊΦ(Ε15,8) 

2139 FIS=FI$+".FON" 

214g OPEN "R",1,FI$,128 

2159 FIELD 1,39 AS A$,26 AS B$,28 AS C$,12 AS D$,32 AS ES$ 

2169 SIZE-128 

217% LOCATE 9,4:COLOR 3,9:PRINT"Select TYPE of Printer List You Want:" 

2189 LOCATE 1%,4:COLOR 15:PRINT"1> Complete Record (include remarks)" 

219g LOCATE 11,4:PRINT"2> Name, Address and Phone Number" 

229g LOCATE 12,4:PRINT"3> Phone Listing (Name and Phone #)" 

2219 LOCATE 13,4:PRINT"4> Mailing Labels" 
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Yes, enter my subscription for 
the next 12 issues of VCR. 
At only $15, that's 36 percent off the regular newsstand price. 


iD) My check in the amount of 
(In order to hold down costs, we do not bill.) 
i Charge to: O VISA O MasterCard O American Express 


Subscriptions to VCR are $15 a year in the United States. Canadian rate is U.S. $22. Air mail rate elsewhere is 
.S. $60. All subscriptions begin with the current issue. Please allow 6 to 8 weeks for first copy. Kentucky residents 
dd 5% sales tax. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 


o order by phone (credit card orders only) call 1-800-847-0309, 8 a.m. to 5 p.m. EST. 
or other inquiries call 1-502-228-4492. 


i Mail to: VCR, The Falsoft Building, P.O. Box 385, Prospect, KY 40059 
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funny thing has happened in the home video 

market. As it gets easier and easier to watch what 

you want, it gets harder and harder to decide 
what that might be. 

Dozens of new tapesare released into the stores every 
week, along with hundreds of hours of programming on 
the network and cable channels. It has reached a point 
where even the most devoted videophile can use a little 
help sorting through it all. 

Now that help is available. 

Inside VCR you will find clear, easy-to-read reviews 
of all the best new releases. You'll find out about little- 
known videos — what they're about and where to get 
them. And in the feature articles, you'll find some very 
entertaining reading about the entertainment business. 

Now that you've discovered VCR, you won't want to 
risk missing a single issue. You can save yourself the 
trouble of walking to the newsstand each month, and 
save yourself some money at the same time. 

Just fill out the attached card and drop it in the mail. 
Or even easier, call (502) 228-4492 and ask for Sandy. 
She'll see to it that VCR is delivered right to your door 
each and every month of the year. 
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SIZE AND WEIGHT! 

This printer is half the size and half 
the weight of your Model 100. 
Anywhere you happen to be, 
cruising at 30,000 feet or in a cab to 
an important business meeting, you 
can get a quick and quiet printout. A 
perfect companion for your 

Model 100/200/600. 


FEATURES? 

This printer has them all: 

e 81⁄2'" wide thermal paper 

* 512 byte buffer 

* Epson MX-80 bit-mapped graphics 
* Built-in automatic self test function 
ο Excellent User's Manual 





CACTUAL print sample»? 
S46 Chars-Lines 4B CPS! 
Ern 1 τε = = οἱ '! 
underlined Emphasized! 
CONDENSED gives you 168 chars. line! 


$99 GRAND TOTAL 

You get the printer and a specially 
made 18” cable (connects printer to 
your Model 100/200/600 or NEC 
8201/8401), 20' roll of paper, a 
paper holder, and 4 ''C'' batteries 
— everything you need to start 
printing immediately with the push 
of a button. This price also includes 
free UPS surface shipping in the 
cont. USA. There is no surcharge 
for VISA/MC/Amex — even the 
phone call is free. 


RUGGED 

This printer was designed to print 
over 300,000 lines without 
maintenance — that's over 104 
pages every week for a year. 









GOING PORTABLE? 


WHAT ARE THE TWO MOST IMPORTANT CONSIDERATIONS? 


DIRECT TO YOU 

We've been selling this printer to 
our portable customers and 
corporate accounts for over a year. 
Two of our largest accounts, NBC 
and National Geographic, use them 
in the field all over the world. To 
meet the demand we have gone 
direct to the Japanese 
manufacturer. Our large volume 
cost is unbelievables— thats why 
we can offer it«direct 16 you at this 
fantastic price; yet still givëfVou 
great serviee and support (6 month 
parts/labor warranty, 30 day money 
back satisfaction guarantee). 


SUPPORT 

We stock paper (rolls and sheets), 
cables, and accessories for the 
printer. The full accessory kit costs 
only $24 and includes a carrying 
case, 100' roll of paper, and an A/C 
adapter (saves batteries when A/C 
power is convenient). 


NO RISK 

Try it for 30 days, ask your friends 
and business associates if they've 
ever seen anything like it. You can 
return it in 30 days for any reason 
and get a full refund. Don't let 
yourself miss this portable printer 
bargain of a lifetime. 








TANDY 200 
24K Memory Module 

$89 — two for $170 

Can be installed in less than 2 
minutes, the only tool required is a 
coin to pop open the hatch. The 
TANDY 200 is expandable to 72K by 
adding two of our 24K modules. 
Built with the lowest power and 
most reliable memory chips 
available. The pins are made 
specifically for the TANDY 200 chip 
socket. 2-Year Warranty. 


MODEL 100 
NEC PC-8201A, Olivetti M10 

8K Memory Module 

$29 — three for $79 

Plugs into the socket provided— 
expanding your memory by 8,192 
bytes. Super low power components 
for iong battery life. Low profile 
which is very important to properly 
fit the NEC PC-8201A. Tens of 
thousands sold since 1983. 
2-Year Warranty. 


TANDY 600 ow 
96K Memory Unit $$ 
$249 — two for $469 
You can install one or fWo of these 
units inside your TANDY 600 — 
giving you a maximum of 224K. 


NEC PC-8201A 
SIDECAR 128K RAM 
CARTRIDGE 

$259 

Plugs into®Side expansion slot 
providing four additional banks of 
32K each. 


IT'S EASY TO ORDER 

Send your order with payment to the 
address below. Or, if you prefer, 
credit card orders can be handled 
by phone— VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales 
tax. Checks allow 3 weeks to clear. 
Institutions and Corporations call for 
purchase order approval. 


1-800-732-5012 TOLL FREE 
Orders only (Bam. - 5pm. PST) 

In California (805) 987-4788 
For orders or customer service 


If you would like our latest product 
catalog or to find a dealer near you, 
please write or call (805) 987-4788 


S PURPLE 
ti COMPUTING 
420 Constitution Ave. 

Camarillo, CA 93010 

Telex: 888661 (PURPLE) 

Canada: Canada Portable Computer, 
Langley, B.C. (604) 856-8858 


RAM EXPANSIONS! 


FOOLISH TO PAY MORE — DANGEROUS TO PAY LESS 














2229 LOCATE 16,4:COLOR 2:PRINT"Press Number Of Choice":LOCATE 17,4:PRINT" 
" 










2236 TYS=INKEY$:IF TY$-""THEN 2239 
2249 IF VAL(TY$)» 4 THEN 2239 

225g GOSUB 337g 

2269 LOCATE 9,4:COLOR 3:PRINT"Select Specifics Of Printer List:" 

2279 LOCATE 19,4:COLOR 15:PRINT"1» All Records" 

2289 LOCATE 11,4:PRINT"2» Specific Record Numbers" 

2299 LOCATE 12,4:PRINT"3» Search By 'TEXT' Occurrence" 

2399 LOCATE 14,4:COLOR 2:PRINT"Press Number Of Choice":LOCATE 15,4:PRINT" 

" 

2316 NCS=INKEY$:IF NC$-""THEN 2319 

2320 IF VAL(NC$)> 3 THEN 2329 

2330 FOR WIPE=8 TO 15:LOCATE WIPE,4:PRINT SPACE$(79) :NEXT 

2349 LOCATE 19,4:COLOR ,g:PRINT SPACES (79) 

2359 IF VAL(NC$)-2 THEN 248 ELSE IF VAL(NCS$)=3 THEN 2599 

2360 RCí-1 

2379 FOR MAX-1 TO (LOF(1)/SIZE) 

2389 IF RC% =Ø OR RC% > (LOF(1)/SIZE) THEN 2429 

2399 GET #1,RC% 

2499 GOSUB 2769 

2419 RC&=RC$+1:NEXT MAX 

2429 CLOSE 1 

2430 COLOR 3,9:FOR WIPE=8 TO 14:LOCATE WIPE,4:PRINT SPACES$(79):NEXT 

2449 LOCATE 5,35:PRINT M$(4):LOCATE 5,3:COLOR 15,4:PRINT M$(1):GOTO 2999 
2459 ' 

2466 '*o* PRINT OUT SPECIFIC RECORD NUMBERS 

2479 ' 

248g LOCATE 21,4:COLOR 13:PRINT"Enter Ø To EXIT To Menu":LOCATE 19,4:COLOR 15,1: 
INPUT"RECORD NUMBER TO PRINT";RC$ 

2499 IF RC&-0 THEN CLOSE 1:COLOR 3,9:LOCATE 19,4:PRINT SPACE$(59%):LOCATE 21,4:PR 
INT SPACE$(48):GOTO 2449 

2599 IF RC&> (LOF(1)/SIZE) THEN LOCATE 11,4:COLOR 4,15:PRINT"No Such Record #":F 
OR P-1 TO 2999:NEXT:COLOR ,@:LOCATE 11,4:PRINT SPACE$(52):LOCATE 19,4:PRINT SPAC 
E$(59):GOTO 2489 

2519 GET #1,RC% 

252g GOSUB 2769 

2539 LOCATE 18,4:COLOR 14:PRINT"Press ANY KEY for another Selection.." 

2549 AKS-INKEYS:IF AKS=""THEN 2549 

2559 COLOR ,@:LOCATE 19,4:PRINT SPACES$(5%):FOR WIPE-12 TO 18:LOCATE WIPE,4:PRINT 
SPACE$ (59%) :NEXT WIPE:GOTO 2489 

2569 ' 

2579 "κκ PRINT OUT BY TEXT STRING *ee* 

2589 ' 

2599 RC%=1: LOCATE 21,4:COLOR 13:PRINT "Enter Ø to EXIT To Menu":LOCATE 19,4:COLO 
R 15,9:INPUT"Enter the Exact TEXT to match";ST$ 

2699 FOR MAX=1 TO (LOF(1)/SIZE) 

2619 GET #1,RC% 

2629 IF INSTR(AS,ST$) THEN 2689 

2639 IF INSTR(B$,ST$) THEN 2689 

2649 IF INSTR(C$,ST$) THEN 2689 

2659 IF INSTR(D$,ST$) THEN 2689 

2669 IF INSTR(E$,ST$) THEN 2689 

2676 GOTO 2699 

2689 GOSUB 2769 

2699 IF RC*-(LOF(1)/SIZE) THEN COLOR 15,4:LOCATE 16,4:PRINT"End of FILE Encounte 
red":SOUND 399,2:FOR P-1 TO 1999:NEXT P:GOTO 2716 

2799 RC%=RC%$+1:NEXT MAX 

2719 LOCATE 5,3:COLOR 15,4:PRINT M$(1):LOCATE 5,35:COLOR 3,9:PRINT M$(4):GOSUB 3 
370 

2729 CLOSE 1:GOTO 2999 

2739 ' 

2749 '»o* PRINTER ROUTINES νά 

275g ' 

2769 IF VAL(TY$)-1 THEN LPRINT A$:LPRINT B$:LPRINT C$:LPRINT D$:LPRINT E$:LPRINT 
:LPRINT 

2779 IF VAL(TY$)-2 THEN LPRINT A$:LPRINT B$:LPRINT C$:LPRINT D$:LPRINT:LPRINT 
2789 IF VAL(TY$)-3 THEN LPRINT A$:LPRINT D$:LPRINT:LPRINT 

2799 IF VAL(TY$)-4 THEN GOSUB 2829 

2899 IF VAL(TY$)=4 THEN LPRINT TAB(4) ;FIRSTS$;SECOND$:LPRINT TAB(4);B$:LPRINT TAB 
(4);C$:FOR SKIP=1 TO 4:LPRINT:NEXT SKIP 

2810 RETURN 

2829 FOR SW=1 TO LEN(A$):IF MIDS(AS$,SW,l)-" " THEN 2839 ELSE NEXT SW:RETURN 

2830 FIRSTS=RIGHTS (A$ , LEN(AS) -SW) : SECONDS$-LEFT$ (A$, SW-1) 
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2849 FOR X-1 TO LEN(FIRST$):IF MIDS$(FIRST$,X,1)-" " THEN 2859 ELSE NEXT X 

2850 FIRSTS-LEFT$(FIRST$,X) 

2869 FOR X-1 TO LEN(SECOND$):IF MIDS(SECOND$,X,1)-" " THEN 2870 ELSE NEXT X 

2870 SECONDS-LEFT$(SECOND$,X) 

2880 RETURN 

289g ' 

299g "0ος MENU Selection *e** 

2919 ' 

2920 M$(1)-"Add":M$(2)-"Edit":M$(3)2"List (Selective)":M$(4)="Print-Copy ":M$(5) 
-"Create (New)":M$(6)="Kill (Existing)" 

2930 LOCATE 23,1:COLOR 15,9:PRINT SPACE$(89):LOCATE 23,1:PRINT"Menu Selections-- 
Hit [ space bar ] to CHANGE or [ ENTER ] to Select! 

2949 SELECT-1 I 

2959 CHS-INKEYS:IF CH$-""THEN 2959 

2960 IF ASC(CH$)=32 THEN 2999 'update menu display 

2970 IF ASC(CH$)-13 THEN 3989 ‘exit menu and branch to action 

2989 GOTO 2959 

2999 SELECT=SELECT+1:IF SELECT-7 THEN SELECT=SELECT-6 

3999 SOUND 2699,.8 

3919 IF SELECT-1 THEN LOCATE 5,64:COLOR 3,9:PRINT M$(6):LOCATE 5,3:COLOR 15,4:PR 
INT MS(1) 

3020 IF SELECT=2 THEN LOCATE 5,3:COLOR 3,9:PRINT M$(1):LOCATE 5,9:COLOR 15,4:PRI 
NT M$(2) 

3939 IF SELECT-3 THEN LOCATE 5,9:COLOR 3,9:PRINT M$(2):LOCATE 5,16:COLOR 15,4:PR 
INT M$(3) 

3949 IF SELECT-4 THEN LOCATE 5,16:COLOR 3,9:PRINT M$(3):LOCATE 5,35:COLOR 15,4:P 
RINT M$(4) 

3959 IF SELECT-5 THEN LOCATE 5,35:COLOR 3,9:PRINT M$(4):LOCATE 5,49:COLOR 15,4:P 
RINT M$(5) 

3969 IF SELECT-6 THEN LOCATE 5,49:COLOR 3,9:PRINT M$(5):LOCATE 5,64:COLOR 15,4:P 
RINT M$(6) 

3979 GOTO 2956 

3989 ON SELECT GOTO 1549,1819,569,2199,259,1499 

9396 ' 

319% CLOSE 1:GOTO 2999 

311g ' 

3126 "ος Graphic TITLE Screen ža 

313g ' 

3149 KEY OFF:SCREEN 1,1:COLOR ,7:CLS 

3159 LINE(199,39)-(179,189) ,2,B:LINE(193,32)-(167,178) ,2, B: LINE(172,39) - (199,25) 
,2:LINE-(122,25),2:LINE-(199,39),2:LINE(192,25) -(192,179) , 2: LINE- (172,189) ,2 
3166 LINE(192,182)-(129,175),2:LINE-(122,39),2:LINE(129,175) -(167,175),2 

3176 PAINT(175,49) ,3,2:PAINT(195,49) ,3,2:PAINT(125,28),1,2 

3186 PUB$-"Public Phone" 

3190 X=6:Y=12 

326 FOR PT-1 TO 12:LOCATE X,Y:PRINT MID$(PUBS,PT,1):X=X+1:NEXT 

321g LINE(85,34)-(99,149) ,3,B: 'PAINT(87,36),1,3 

3229 LINE(138,69)-(148,89),1,BF:LINE-(153,76),1:LINE-(153,56),1:LINE-(148,60),1: 
LINE(153,56)-(143,56),1:LINE-(138,69),1 

3230 CIRCLE(143,65),4:CIRCLE(143,65),3:LINE(140,71) - (146,79) , 3, BF:LINE(159,63)-( 
153.76) 4,3, BP 

3246 DRAW"bm14g,97;cld2g19f15elgh15":PAINT(140,192),2,1:DRAW"bm149,192;clg6bf3e6 
bf3g4" 

3258 DRAW"BM2292,119;ClRA4gD39LAQU37E3R49G3BE3D32G3BH8BU5L25U5R25D5" : PAINT(239,123 
253,1:PAINT(224,112),2,1 

3269 LOCATE 15,39:PRINT "US":LOCATE 17,29:PRINT"MAIL":LOCATE 16,34:PRINT"«-":LOC 
ATE 15,36:PRINT"/" 

327g LOCATE 2,19:PRINTTPHONE-BOO T H" 

3289 LINE(42,0)-(282,29),2,B:LINE(41,1)-(279,19) , L, B: LINE(42,2) - (278,18) ,3,B 
3299 DRAW "bm151,77;c2d7glllhlu4":DRAW"bm125,95;c2r3ge2139f2" 

339g LINE(99,179)-(9,179),1:LINE(192,179) (319,170) , 1: LINE(, 192) - (319,199) ,1 
3316 FOR RING-1 TO 3:FOR K-2399 TO 1800 STEP-25:SOUND 1288,.37 

3320 LINE(134,54)-(137,58),3:LINE(134,78)-(137,74),3:LINE(155,58)-(158,54),3: LIN 
E(155,74)-(158,78),3 

3330 FOR P-1 TO 19:NEXT:LINE(134,54)-(137,58),9:LINE(134,78)-(137,74) , : LINE(155 
,58)-(158,54),8:LINE(155,74)-(158,78),9:NEXT 

3349 FOR P-1 TO 1999:NEXT:NEXT RING 

3350 LOCATE 23,39:PRINT "by L. Hyre" 

3366 FOR P-1 TO 299g:NEXT P:RETURN 

3370 FOR WIPE-8 TO 21:LOCATE WIPE,4:PRINT SPACES(74):NEXT WIPE:RETURN 

3386 CLOSE:SYSTEM 
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BASIC 
Control 


Structures 


By Richard A. White 


Richard White has a long background 
with microcomputers and specializes in 
BASIC programming. He has authored 
numerous programs and articles. His 
work has also appeared in PCM 5 sister 
publication, THE RAINBOW. 
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Allow your program to 
make decisions with. . . 


1000/1200/2000/3000 


control structure is one of a 
Az of statements that al- 
lows a program to make a 
choice. There is always some test made 
to determine which course of action to 
follow. Though the test may be complex 
and consist of a group of conditions, it 
boils down to either the conditions are 
true or false. 
Consider the FOR... TO... NEXT 
control structure. 


10 FOR X=1 TO 10 
20 do something 
50 finished doing it 
60 NEXT 


The first test is made when the NEXT 
in Line 60 is encountered. This means 
that the program will always do some- 
thing at least once. When NEXT is 
encountered, X is incremented by one 
(the default since STEP was not speci- 
fied), and a check is made to assure that 
X is equal to or less that 10. As long as 
this condition is true, the program 
returns to Line 20 and does “something” 
again. 

Since X is just a variable like any 
other, you can use its value in your 
routine. A simple example is printing a 
menu where the menu text is in a string 
variable array called AS( ). Here is a 
program piece that does the job. 


10 CLS : FOR X71 TO 10 
20 PRINT X;" ";R$(X) 
30 NEXT 


The menu produced looks like this on 
the screen. 


Choice A 
Choice B 
Choice C 
Choice D 
Choice E 
Choice F 
Choice G 
Choice H 
Choice I 
Q Choice J 


F m N O (n + (G) N P 


By using STEP, you can count up or 
down and do so in increments other 
than one. All the following FOR... TO 
... STEP ... NEXT statements will 
work. 














Here is a sneaky bit of code that gives 
an insight to the way FOR... TO., 
STEP...NEXT works. 





The output to the screen looks like 
this: 





BASIC goes through the beginning of 
Line 10 only once, establishing the 
initial value of X, its ending value and 
the STEP increment. NEXT sends the 
program to the code just after the FOR 
... TO... STEP definition. This code 
may be on the same line or on a new line. 


Want to lock up your computer? Here 
is an easy way: 





To drop out of the dies X must reach 
a value greater than two when incre- 
mented by NEXT, but X always equals 
zero when the program reaches the 
NEXT. Now one would not be likely to 
want to do this on purpose, but anyone 
who has done much programming has 
probably done something like it by 
mistake. 

If the start and end values are integer 
values and STEP is an integer value, use 
an integer value for the loop variable. 
This significantly speeds operation of 
the loop since BASIC can use integer 
arithmetic rather than floating point 
math. Remember, the percent sign (X) 
specifies an integer variable. 





One place to purposely use a single or 
double precision count variable is when 


usingFOR...TO.. 
delay. FOR COUNTH-1 TO 2000 : 
works beautifully as a delay. 

Note that I have never used the 
variable name after NEXT. NEXT COUNT% 
is acceptable code and some feel that it 
helps clarify a program. When memory 
is tight and every byte counts, then I am 
unwilling to waste bytes on unneeded 
names. If you do associate a variable 
with a NEXT, be sure it is the right one. 
BASIC knows full well which variable the 
NEXT is associated with and if you try 
to tell it something different, it will send 
a nastygram and quit. 

FOR... ΤΏ... NEXT loops may be 
nested to any depth likely needed. Two- 
or three-deep nesting is very common. 


. NEXT as a program 
NEXT 


If the test proves true, the code 
following the THEN is executed. The 
program either goes to the next line in 
the program or branches if a GOTO is 
encountered. Note that there may be 
one or more GOSUBs after the THEN, but 
the program always returns to finally 
move on to the next program line. 

If the test proves false, control goes 
to the code following the ELSE, if there 
is one. ELSE is optional. One limit is the 
ELSE must be in the same line as the IF 
and THEN. This might force the use of 
subroutine calls (GOSUBs) if a substan- 
tial amount of processing is required 
after the THEN, the ELSE, or both. There 
are ways to do the same thing with 
GOTOs, but things get confusing. Forget 





*One place to purposely use a single or double 


precision count variable is when using FOR 


a JU, s. 


It's here that it is easy to make a mistake 
when associating a variable name with 
a NEXT. Still, to make the association 
clear, I will show the associated varia- 
bles in the following program that 
prints the multiplication table to the 
screen. 





There is more to program control 
than looping to a certain count. IF... 
THEN ... ELSE is another workhorse 
control structure. If you could have 
only one control structure, it would 
have to be ΙΕ... THEN... ELSE be- 
cause you can make it do the same job 
any of the other control structures can 
do. The others exist to make program- 
ming easier, but are not critical to being 
able to write a program. 

In the beginning, there was ΙΕ... 
THEN. Then ELSE was added and how 
crude life was in the early days became 
apparent. 

There are three parts to an ΙΕ... 
THEN ... ELSE statement. A test is 
performed after the IF key word. The 
test may be simple or complex, but 


BASIC boils it down to a final true or i ‘or => : 
< or» < not equal. 


false and acts according to the result. 






. NEXT as a program delay." 


GDTO is in BASIC if at all possible. Look 
how straightforward subroutine calls 
can be. 


l dr JESTHORDS- "MORE" THEN. 





Here we made the test and set an 
initial condition, FLaG$-^TRUE^ or 
FLRG-^FRLSE, and went off to two 
subroutines. All sorts of activity could 
have occurred in the subroutines, but 
the program still returns to Line 1100 
when all is accomplished and “top- 
down" program flow continues. The 
fact that the subroutines are at the 
beginning of the program does not 
upset the top-down concept since it 
refers to flow within the particular 
program module. In PASCAL, every- 
thing you are ever going to need in 
procedures or subroutines must come 
before the *main" procedure. 

Any test will include one or more 
relational operators. These are equal, 
(=), less than (<) and greater than (>); 
they may be combined. 


i ess than o or equal . 
greater than or equal 
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Logical operators are also provided 
and include RND, OR, NOT, XOR, EQV and 
IMP. AND, OR and NOT are most fre- 
quently used, as shown in the examples 
provided. 


IF COST <= PRICE THEN PROFIT = 
PRICE —COST ELSE LOSS =COST ~ 
PRICE 

IF AS < »^CONDITIONI^ AND 
B<=100 THEN. J. ELSE... 

IF C$ = “SOMETHING” AND ( É > 
190805 100) THEN... 

IF NOT WARM THEN TEMPS = “COLD” 


Obviously there are all sorts of things 
that can be tested. The first example is 
a simple “less than or equal” test. The 
< > essentially means “not equal to.” It 
is typically used when comparing 
strings. There is also an AND in the 
example. It forces both conditions to be 
met before the test is “true.” The third 
line contains two tests within paren- 
theses. They are joined by an OR, which 
requires that only one be true for the 
parentheses to be true. The last example 
is a bit obscure. Microsoft BASIC uses 
zero to indicate false. Any other number 
indicates true. 

You can make major programming 
errors by setting up code after the IF 


ME MARY MAC wousreies nc 
800-231-3680 
Radio Shack® Tandy® 
EPSON PRINTERS 


People you Trust to give you the very best! 


> 


without getting an error message. BASIC 
tries to do what you want, ends up with 
a true or false determination, and 
continues on. 

IF...THEN...ELSE statements can 
be nested. The limit is how many you 
can get in one line. You can sometimes 
use RNDs and ORs after the first IF to do 
the same thing nested IFs do. Look at 
your problem both ways. 

WHILE ... WEND provides loop con- 
trol with the test at the beginning of the 
loop. If the test proves false, program 
control goes to the statement imme- 
diately following WEND. The test may be 
any of the types used after IF. One nice 
feature is WEND may be on a different 
line from its WHILE. This means WHILE 
... WENDs may be nested to any level 
and large amounts of code may be 
involved between a WHILE statement 
and its WEND. 

Each WEND is matched to the most 
recent WHILE. There must be a WEND for 
each WHILE and vice versa. Failure to 
have this match causes “WHILE without 
WEND” or “WEND without WHILE” error 
messages. 

WHILE... WEND is particularly useful 
in controling a loop where work con- 
tinues until some definable finish crite- 
ria is met. A bubble sort is a simple 


example. Suppose strings are held in an 
array with J members. The task is to 
start at the top of the array and compare 
two members. If a swap criteria is met, 
the two strings are swapped. Then, the 
second string is compared with the third 
and a swap is made if the criteria is met. 
Multiple passes are made until the array 
is in order. This is detected when there 
are zero swaps in a pass. Here is a short 
program to do this. 


200 ‘Bubble sort array AS( ) 

210 SWAPS=1 “Force one pass ` 
through the arrau 

220 WHILE SWAPS 

230 SWAPS=@ 

240 FOR I-1 TO J-1 

250 IF ñ$(I) > AS(I+1) THEN SWAP 
AS(1),AS(I+1): SWAPS=1 

260 NEXT: WEND 


SWAPS need only be set to one to force 
another pass. When the list is in order, 
SWAPS will remain zero and the loop will 
be exited. 

The last set of control structures is of 
the ON. . .GOSUB and ON. . . GOTO type. 
They cause a branching to one of a 
number of lines depending on which of 
a number of criteria has been met. We 
will save these for next month. Gi 


LOW LOW PRICES 


on 


Hard Disk Drives 
Floppy Disk Drives 


Star Printers 
Anchor Modems 


Diskettes 
Color Computer Dr ó 


SPECIAL 


IBM XT COMPATIBLE 
2 FLOPPY DRIVES 
1 10 MEG HARD DISK 
MONOCHROME OR COLOR CARD 
256K MEMORY EXPANDIBLE TO 640K 
$1195.00 
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TRUE DATA PRODUCTS 
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authorized computer Dealer" 
22541 Katy Fwy., Katy (Houston) Texas 77450 
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Each and every month, PCM 
offers an assortment of pro- 
grams for the home and office — 
utilities, business applications, 
games and more — all for the 
price of typing in the listings. 


If you're a person on the move, 
and too busy to spend time typ- 
ing lengthy listings, then PCM has 
just what you need — 

PCM ON DISK. 


PCM ON DISK 

The Falsoft Building 
P.O. Box 385 

Prospect, KY 40059 
(502) 228-4492 

To order by phone (credit card 
orders only) call (B00) 847-0309, 


8 a.m. to 5 p.m. EST. For other 
inquiries call (502) 228-4492. 


ists pli PSUR NEE Badge LEG: ΟΞ; 


PCM ON DISK provides each 
issue's MS-DOS programs ready 
to load and run with only a few 
keystrokes! 


AS AN ADDED BONUS, PCM ON 
DISK will include PCM's portable 
computer programs, which may 
be downloaded to portables for 
those readers who have both an 
MS-DOS machine and one of 
Tandy's portable computers. 








That means you get a disk 
each month for a year, 
containing all programs listed 
in that month's issue, for an 
average cost of only $8.25!* 
We think it'S worth your time to 
subscribe. 


*Disks for individual issues (beginning 
this month) may be ordered for only 
$12 each. 





O Full Year's Subscription (specify starting month) 


O Single Volume (specify month(s) & year) 


Name 

Address 

City 

Payment Enclosed O 
Charge: 
My Account# 


State 


ZIP 


Visa) MasterCard ΓΙ! American Express O 


Card Exp. Date 





Signature 





*Subscriptions to PCM ON DISK are $99 a year in the:United States. Canadian rate U.S. $115. All other countries 
U.S. $130; PCM ON DISK single copy rate is: $12 within the U.S.; U.S. $14, Canadian rate; U.S. $16, all other 
countries. Kentucky residents add 5% sales tax. All subscriptions begin with the current issue unless otherwise 
specified. Please allow 6 to 8 weeks for first copy. PCM ON DISK is not a stand-alone product. PCM magazine 
is a separate purchase. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 
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By John D. Shewchuk 


ired of all those Star Trek “batch-type” 
games? You know, the type that allows a light- 
year between plays like chess or checkers. Did 
you ever see Scotty stand still for anything? 
Mr. Spock would say, *How illogical." Well, 
this Star Trek game is "real-time"! It's a fast-paced, 
continuous-action fight to the finish. Both color and 
sound aid you (the Captain) to battle the enemy. Once the 
enemy is sighted, there is no turning back, and it's too late 
to review the ship's operating manuals. Luckily, Mr. 
Spock, Lt. Uhuru, Scotty and Sulu are on the bridge with 
you. With this game, you “earn” your efficiency rating. 

This game makes use of many of the unique capabilities 
of the Tandy 1000's GW-BASIC. It will not work on IBM- 
type machines, primarily due to the use of the screen 
Mode 6 graphics, which allows both text and color graph- 
ics on the same screen. Tandy's unique SOUND, NOISE and 
PLAY commands are also used throughout the program 
for added realism. The minimum facilities required to 
play this game are: a Tandy 1000 with GW-BASIC, an RGB 
monitor, at least 256K memory, good eyes and ears, a 
strong cardiovascular system and — most importantly — 
a logical mind. 

The program is subdivided into four parts: the title 
screen, the menu (with internal documentation), the game 
playing and your rating. All sections are relatively short 
and simple, except the game, which constitutes 80 percent 
of the program. 


John Shewchuk is manager of over 60 computer pro- 
grammers and systems analysts at the U.S. Air Force's 
Global Weather Central, Offutt AFB in Omaha, Ne- 
braska. He has master's degrees in meteorology and pub- 
lic administration. He developed this program partially 
for his own pleasure and experience and partially for his 
wife, Judy, an original die-hard Trekker. 
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The Program 

The title section starts with (you guessed it) a star scene 
and other Star Trek opening texts and themes. The screen 
turns into a colorful, musical display to satisfy the needs 
of those “Trekkies” who are truly addicted to the words — 
Star Trek. This display used the handy RESTORE command 
(Line 1880) for this sequence. 

Next comes the menu. Here you are given your first three 
options: 1) view game rules, 2) view keyboard controls or 
3) start the game. 

The game rules consist of three pages of text, which 
outline information necessary toward understanding the 
capabilities of the Enterprise and the enemy. There are three 
types of enemies: a Romulan probe, a Klingon battle cruiser 
and Khan's warship. Each type increases in difficulty. 

The second option, keyboard controls, shows a display 
of Tandy's numeric keypad section and the functions they 
represent (note: the NUM LOCK light must be on). The other 
keyboard controls are located in the function keys FI 
through F8. All controls are located in logical patterns. 

The last option, the game, is a non-stop Adventure 
against the enemy of your choice, which can only end with 
your final rating (last program section). Oh yes, Mr. Spock 
personally determines each of your efficiency ratings and 
recommends appropriate actions. Let's hope you don't 
display any emotions. 

Knowledge of the rules and keyboard controls is essential 
to a successful encounter. Knowledge of the rules is helpful, 
but the experience of battle is the best teacher. This Star 
Trek program is a game of skill. 

The captain's chair (keyboard) has the following func- 
tions: First, the numeric keypad section. All number keys, 
| through 9, are used. In numerical order, the functions are: 
impulse engine start, rear photon torpedo launch, hyper- 
drive, left turn, phaser blast (forward only), right turn, 
decrease warp speed, forward photon torpedo launch and 
increase warp speed. Second, the function keys, from ΕΙ to 
F8, are: shields on, shields off, phasers on, phasers off, repair 
shields, repair weapons (phasers & torpedoes), repair 
ergosystems (ship's five support systems) and repair engines. 

That's it, folks. All keys respond in real-time through the 
INKEYS function, which is always in a continuous loop (this 
loop is the heart of the main program in lines 3190 through 
3450). There is, however, a slight response delay to 
commands when one of the program subroutines is active 
(such as repair activities or enemy actions). The computer 
remembers each and every keyboard command, and each 
command will eventually activate its respective function. 
Novice Captains almost always become over-anxious and 
give the Enterprise several commands before the enemy 
makes a corresponding response. One important rule is the 
Enterprise permits an unlimited number of commands 
before the enemy responds, except for one command type 
— a weapons release (this rule allows the enemy a fighting 
chance). Beware — hesitation or lack of commands will 
result in the Enterprise's destruction, a very low efficiency 
rating and worst of all — Mr. Spock's disapproval. 

A few words about the battle screen. It is split into two 
parts — the command and tactical screens. The command 
screen echos commands, the responses from the crew and 
other Enterprise|enemy statistics. The tactical screen 
performs only graphical activities, once text labels are 
established. The combination of the two screens' text and 
graphics updates gives an accurate and timely status of all 
pertinent information about the battle — except what the 


galley is cooking for supper 

This battle screen is created in four steps. First, screen 
Mode 6 is used to allow a combination of high resolution 
color graphics and 80-column text. Next, VIEW is used to 
define the tactical portion of the screen (viewport) for 
graphics use. Third, WINDOW SCREEN is used to redefine the 
tactical screen's viewport in terms of *world coordinates" 
for ease of use. Finally, the Enterprise's initial text and 
graphics information is entered onto the battle screen. 

A note for those who only have Tandy's originally 
supplied BASIC information booklet, A Reference Guide; it 
indicates that screen Mode 6 has a “color set” of 16. Not 
true! Tandy's expanded BASIC Reference Manual ($35) 
accurately indicates a “one” palette capability, which just 
allows four colors (Line 2830). 

The objective of this game is to rid the Federation of 
hostile intruders. Simple? Well, for the Romulan probe, this 
may be true, but the Klingon and Khan encounters become 
increasingly difficult. 

Enemy difficulty incorporates the following program 
activities: increased weapon releases, faster speeds, quicker 
repairs, more accurate weaponry and improved evasive 
tactics. The majority of these functions are located in lines 
4330 through 5050. This section also includes the main space 
vector calculation logic. Each time the enemy position and 
statistics are updated on the screen, this logic uses 
trigonometry to recalculate the position of the enemy 
relative to the Enterprise (movement of the Enterprise is 
subtracted from the enemy's movement). 

Enemy statistics are updated via screen text about once 
every second. The enemy's relative position to the Enter- 
prise is displayed graphically using a red dot on a circular 
viewport. Dot positions are updated through a combination 
of the CIRCLE and PRINT commands (lines 4890 through 
4900). The Enterprise vector arrow within this same 
viewport is updated using 36 different DRAW calls (lines 5250 
through 5740) representing the 36 points of the compass. 
Before the arrow is updated with the new DRAW command, 
it has to be “blacked out" with a call to the previous DRAW. 
This also occurs for the enemy's red dot. 

The first executable line of this program uses a powerful 
option of Tandy's BASIC language — the CLERR command. 
In this program, CLEAR, ,1500,32768 is used. The 32,768 
*video memory" value is necessary to access screen Mode 
6. This also (unfortunately) requires more than the Tandy 
1000's standard system of 128K RAM. The 1,500 "stack 
space" value was added to this program after the fact. 
During program development, I kept getting “Out of Mem- 


The st 


2 REM 
39 REM 
4g REM: 
59 REM 
66 REM ` 
79 REM 
89 REM: 


98 REM ariennir 


1989 REM / 
11Ρ CLEAR, , 1599, 32768! : KEY OFF: Nel. 

129 GOTO 1549 

139 SCREEN g; KEY OFF: COLOR ig, 9, 13: CLS 

14g PRINT F 
115g PRINT " 


STARTREK == A Real Tine Game !' 
by John D. Shewchuk * 1968 * ‘Version 1.9 


for the Tandy 1999, w/256K i: 


>>> S TAR T R E K ' <<<" 


ory” errors in the FOR/NEXT loops. After lots of headaches, 
I finally realized that the solution lay within this CLERR 
command option. I used the 1,500 value, which is about 
double the default 768-byte value, and have had no trouble 
since. 

This program uses the random number generator (RND) 
and the internal clock function (TIMER) throughout. These 
statements give this program a controlled degree of 
uncertainty and the real-time activities necessary for this 
type of game. The RND function is used primarily within the 
code that determines the enemy's activities — within 
predetermined limits. The TIMER function is needed mostly 
to keep track of spacecraft repair activities. 

I'd like to make special mention of three versatile audio 
commands available in Tandy's BASIC and used throughout 
this program — PLAY, SOUND and NOISE. Hopefully your 
internal Tandy 1000 speaker works, otherwise you will miss 
an important dimension to this game. (Maybe someday this 
GW-BASIC will also allow stereo sound.) 

The powerful PLAY command is used mostly for musical 
tunes. The longest tune used was the Star Trek theme (lines 
1760 through 1790). It had to be divided into four sections 
because the PLAY buffer can only hold a limited number of 
notes at one time. 

The SOUND command is also very powerful and used 
mostly for sound effects. The most effective application of 
the SOUND command was the simulation of the doppler 
effect of an enemy’s plasma bolt (or whatever they fire at 
us) as it whizzes by the Enterprise (lines 4290 through 4310). 
Note that SOUND options (frequency, duration and volume) 
were all varied for this effect. 

The NOISE command was only used to give the Enter- 
prise’s engines a representative background sound with an 
appropriate volume (Line 6880). This NOISE command was 
especially useful, since it can simultaneously operate with 
either the PLAY or SOUND commands. A valuable feature of 
all three “sound” commands is the option to specify volume. 
Other GW-BASICs do not allow the volume option. 

Before trying this game, be sure to read the internal 
documentation associated with the first two options in the 
main menu — the rules and the controls. Each option has 
three pages of information. 

The third main menu option puts you in the captain’s 
chair. Don’t forget to keep those shields up. Go ahead and 
clean the Federation of all those intruders and make Spock 
proud of you. Remember, it’s only a game — so have 
fun! 


D 


"SPRINT.: 
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169 
179 
189 
199 
29g 
21g 
229 
23g 
24g 
25g 
269 
279 
28g 
299 
39g 
319 
32g 
339 
349 
359 
36g 
379 
389 
390 
49g 
419 
429 
439 
44g 
459 
469 
479 
48g 
49g 
599 
519 
529 
539 
549 
559 
569 
579 
589 
59g 
69g 
61g 
629 
63g 
649 
659 
66g 
678 
68g 
69g 
79g 
71g 
729 
730 


768 
77 


8gg 
81g 
82g 
839 


869 
876 
88g 


54 


PRINT " "PRINT 

PRINT " * Α Real-Time Game Ἀν“; PRINT 

COLOR 13: FOR I = 1 TO 89: PRINT CHR$(177);:NEXT I:PRINT:COLOR 11: PRINT 

PRINT THE MENU :" 

PRINT ";PRINT 

PRINT 1 - The Rules":PRINT 

PRINT 2 - The Controls":PRINT 

PRINT 3 - The Game":PRINT 

COLOR 13: FOR I = 1 TO 8g: PRINT CHR$(177);:NEXT I:PRINT:PRINT:COLOR 7 

PRINT: PRINT " : by John D. Shewchuk -- 1986" 

LOCATE 24,32: PRINT "[ Version 1.9 ]"; 

A$=""; ASSINKEYS: IF A$="" THEN 279 ELSE 289 

IF AS-CHR$(59) THEN 319 

IF A$-CHR$(A49) THEN 879 

IF AS=CHR$(51) THEN 1959 ELSE 279 

COLOR 19,1,4: CLS: PRINT 

PRINT." 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT TORPEDO 

PRINT Front Launch 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT $ 

PRINT | 

PRINT | 
| 
| 
' 


J** BE SURE 'NUM LOCK" KEY IS ON ve" 


PRINT 
PRINT " 
PRINT." 
LOCATE 25,8: PRINT "Press any key to continue . 

A$5s"": ASSINKEYS: IF AS<>"" THEN 569 ELSE 559 

CLS: PRINT: PRINT 

PRINT " wee BATTLE SUPPORT COMMANDS serw" i PRINT: PRINT 
PRINT " Fl - SHIELDS ON F2 - SHIELDS | OFF": PRINT 
PRINT" PHASERS ON F4 - PHASERS OFF" 

PRINT: PRINT: PRINT HHIH 

PRINT " SHIP'S: REPAIR ACTIVATORS 

PRINT " SHIELDS": PRINT HH 
PRINT." WEAPONS (PHASERS & PHOTON TORPEDOS)": PRINT 
PRINT." ERGOSYSTEMS (ALL 5 FUNCTIONS)": PRINT 

PRINT." DILITHIUM CRYSTALS (ENGINES)": PRINT 

LOCATE 25,8: PRINT " Press any key to continue , ; ." 

A$-"": AS=INKEYS; IF A$<>"" THEN 689 ELSE 679 

CLS: PRINT 

PRINT." kkk CONTROL CHARACTERISTICS www"; PRINT 

PRINT * The computer remembers and executes all function commands" 
PRINT entered. ‘The program will consecutively execute all those” 
PRINT entered, until a phaser or torpedo is fired -- after which" 
PRINT the enemy then takes a turn.": PRINT | 
ΡΕΙΝΤ The program will wait about 1 second after your last command" 
PRINT before the enemy executes the next command.": PRINT 

PRINT The repair function for Ergosystem $2 (Life Support - Oxygen)" 
PRINT must be activated within 19 seconds of enemy hiti Ship's Hull" 
PRINT (Ergosystem #1) will fail when hit twice, even if the Hull is" 
PRINT being repaired after the first hit. Use those shields.":PRINT 
PRINT All functions are echoed on the Command Screen, except the" 
PRINT Left ἃ Right turn keys (#4 & #6, respectively).": PRINT 

PRINT Portions of the program's openings can be skipped by pressing" 
PRINT any key. They are: the Star scene, the Title scene; and the" 
PRINT Coded Message scene." 

LOCATE 25,26: PRINT "Press any key for Menu . . ." 

A$e"": AS=INKEY$: IF A$<>"" THEN 13g ELSE 869g 

COLOR 19,,2: CLS} PRINT 


PRINT " yeleleicie This game has the Vulcan Seal of Approval οσο 
PRINT 3 "U PRINT 


TORPEDO 
Rear Launch 
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Memory Upgrades for Tandy Portables! 


Model 600 96K RAM Upgrade 
$249. or $465. for two 
Save up to $335. with this upgrade designed 
specifically for the Model 600. The 96K up- 
grade card fits into existing slots in the Model 
600 and adds either 96K or 192K of RAM to 
the computer. 


Model 200 Model 100, 8201 or M10 


24K RAM Upgrade 8K RAM Upgrade 
$89.00 $27.00 
Two for $170. $75. for pkg. of 3 


Save up to $330. with this ex- Saveupto$282. upgradingan 

actreplacement while bringing 8K Model 100 to 32K The 

your Model 200 up to 72K. modules also fit the NEC 8201 
and the Olivetti M10. 


* κ * BUY QUALITY & SAVE * x κ 


All three upgrades feature low power version of CMOS static RAM for 
minimum battery drain and maximum reliability. Our products are 10096 
tested before they leave the factory. Every upgrade carries with ita 3O day 
satisfaction money back guarantee and 1 yr. replacement warranty. Step 
by step illustrated instructions are included, and our customer service 
support is as close as your phone. 


TO ORDER 
CALL 714-540-1174 
or WRITE 


M/C, VISA, CHECK or MONEY ORDER American 
CALIF. RESIDENTS ADD 696 Sales Tax Al Cryptronics Inc 
9 e 


SHIPPING-ADD 
UPS Ground $1.50 ; 
4 (Formerly Cryptronics, Inc.) 
2nd Day Air $4.00 1580 Corporate Drive, Suite 123 


Next Day Air $12.00 Costa Mesa, California 92626 


Tandy is a registered trademark of Tandy Corp. (714) 540-1174 
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999 PRINT " * Difficulty -- Romulan Star Scout > EASY" 
919 PRINT " -- Klingon Battle Cruiser > MODERATE" 
929 PRINT " -- Khan's Warship > HARD": PRINT 


939 PRINT " * Objective: There is only one winner - the Enterprise or the Enemy" HH 


949 PRINT: PRINT " * Weapons -- The Enterprise:":PRINT 

950 PRINT - Phasers - Range: 19,999 KM" 

968 PRINT Direction: Foreward only" 

979 PRINT - Torpedos - Range: 29,999 KM" 

989 PRINT Direction: Front and rear" 

990 PRINT Replenish: Only following Hyper-Drive" 


1999 
191g 
1929 
1939 
1949 
1959 
1969 
1978 
198g 
1999 
1199 
ilig 
112g 
1139 
114g 
1156 
1169 
1179 
118g 
1190 
129g 
1219 
1224 
1239 
1249 
1259 
1269 
1279 
1289 
1299 
1399 
131g 
1329 
1339 
1349 
1359 
1369 
1379 
1380 
139g 
149g 
141¢ 
1429 
1434 
144g 
1459 
1469 
1479 
1489 
149g 
1599 
151g 
1529 
153g 
1549 
1559 
1569 
1579 
1589 
1599 
1699 
1619 
1629 
163g 


PRINT: PRINT " =-= The Enemy:":PRINT 

PRINT" - Type: Plasma Bolts" 

PRINT " - Range: 29,9099 KM" 

PRINT " - Direction: Any angle; foreward is most accurate" 

LOCATE 25,25; PRINT "Press any key to continue . . ." 

AS-"": AS=INKEYS: ASe"" THEN 1959 ELSE 1969: 

CLS 

PRINT " * Defense Shields ( 2 banks }” f 

PRINT Enemy avoidance { vía-speed and direction }": PRINT 

PRINT " * Engines Impulse engines can only be started ... not stopped" 

PRINT Warp speeds range from l to 19; Enemy warps go higher" 

PRINT The Enemy has no Hyper-Drive (count your blessings) i" 
PRINT -- Hyper-Drive gets Enterprise to StarBase 6 "; 

PRINT "(only if enough power)" 

PRINT then the Enemy continues the attack |" 

PRINT Note: Each Hyper Flight reduces available power" 

PRINT Í H 

PRINT " κ Ergosystems ~~ Hull: Consists of inner and outer’ structures" 

PRINT -- Oxy: Life support (oxygen, etc) systems" i I 

PRINT --.Aim: Target acquisition and aiming capabilities’ | 1 

PRINT -- Dat: Sensor data readings on enemy" 

PRINT -- Com: Internal ship communications círcuits":PRINT 

PRINT " * Repairs -- Enterprise repairs are activated via F5 - F8" 

PRINT (Ergosystem repair selection [F7] is pre-set)" 

PRINT -- Enterprise and Enemy repairs are internally" 

PRINT prioritized and timed according to difficulty": PRINT | 

PRINT " * Note: The capability/advantage of turning 'off' the" 

PRINT Shields and Phasers [F2 & F4] is to free power" 

LOCATE 24,19: PRINT"if extra is needed to achieve Hyper-Drive"; 

LOCATE 25,53: PRINT "Press any key to continue..." 

ASe"": ASSINKEYS: IF AS="" THEN 1399 ELSE 1319 

CLS: PRINT 

PRINT " * Color Codes:" 

PRINT -- Light Blue - system OK / activated" 

PRINT -- Red - system damaged / inactive" 

PRINT -- Yellow - system under repair & still inactive" |: 

PRINT until repairs are completed (computer controlled)" j 
PRINT Note: engine colors reflect engine speeds - not damage": Hl 

PRINT: PRINT " * Damages:" j 

PRINT -- Shields are first systems damaged upon enemy hit." 

PRINT After shields are gone (red or yellow), all other" 

PRINT." ship's sytems are liable targets." 

PRINT " -- Damage to both dilithium crystals prevent warp speeds." 

PRINT Further damage (one more hit) stops impulse engines." 

PRINT HH 

PRINT " * Phasers and forward torpedos usually hit enemy only when the" 

PRINT Enterprise vector (bearing) arrow points toward the enemy" 

PRINT position (red dot). Note: Skill can be achieved by leading the" 

PRINT target using data displayed on the Enemy Status screen i -- use of" 

PRINT enemy's bearing and warp speed data are esserntial.": PRINT 

PRINT * Enemy evasive actions, offensive tactics, qne! S opeis activities". 

PRINT improve with selected degree of difficulty.";:PRINT 

LOCATE 25,26: PRINT "Press any key for Menu’. . ."; 
AS=INKEY$: IF A$="" THEN 1539 ELSE 139 

OPTION BASE 1: TIMER ON: SCREEN g 

DIM KB(2,36), SS(6), TE(5) ὶ ! 

GOTO 1599: REM - NEXT 2 LINES IS À JUMP FORWARD SUBROUTINE 

K$ = INKEY$: IF K$ <> "" THEN 1589 ELSE RETURN 

GOTO 139 

SCREEN 6; 0615: RANDOMIZE TIMER 

FOR I = 1 TO 208: GOSUB 157g 

MX = INT(RND*639)+1: NX = INT(RND*199)41: PSET (MX,NX),9: NEXT I 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: J = 599 

STARS$ = "MBOST4QV9MLC.04G.B-.F.P39C,03G.B-.F." 
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1649 COLOR 1: PLAY STARS$ 

1659 PRINT SPACE";: FOR I = 1 TO J: GOSUB 1579: NEXT I 

1669 PRINT " -- THE FINAL FRONTIER.";: FOR I = 1 TO J: GOSUB 157g: NEXT I 
1679 PRINT THESE ARE THE VOYAGES OF" 

168g PRINT: PRINT " THE STARSHIP ENTERPRIZE, HER FIVE MINUTE MISSION --": 
1699 FOR I = 1 TO J: GOSUB 1579: NEXT I 

1799 PRINT : PRINT " TO EXPLORE STRANGE NEW WORLDS, TO SEEK OUT NEW LIFE"; 
1719 PRINT " AND NEW CIVILIZATIONS,": FOR I = 1 TO J: GOSUB 1579: NEXT I 
1729 PRINT: PRINT " TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE." 

1739 FOR I = 1 TO J: GOSUB 1579: NEXT I: 

1748 SCREEN 9:COLOR 9,9,9:CLS 

1759 DIM CL(5): CL(1)=176:CL(2)=8:CL(3)=223:CL(4)=219:CL(5)=178 

176g X$-"C.O4C.T19g 03 B-AGFE T69 E-. T129 D. Οὐ D. T1998 C O3 B-AGF T69 E. P16" 
1779 YS$-"EF.G T219 AB- Οὐ CDE- T129 E. T1998 F. P16" 

1789 Z$-"AG.A T219 B- Οὐ CDEF T129 F+. T19g G. P16 03 B-4" 

1799 AS="03 MB ML T1298": DIM CLR(5) 

1899 CLR(1)=14: CLR(2)-4: CLR(3)-3: CLR(4)-5; CLR(5)-1 

1819 PLAY A$+X$ 

1829 FOR J = 1 TO 5 

1830 COLOR CLR(J),J,CLR(J) 

184g FOR I = 1 TO 223 

1850 K$ = INKEY$ 

1869 IF K$ > "" THEN 139 

1879 READ L,M: LOCATE L,M: PRINT GHR$(CL(J)) 

188g NEXT I: RESTORE 

1899 IF J = 1 THEN PLAY A$+Y$+A$+Z$ 

1999 IF J = 2 THEN PLAY A$+X$ 

1919 IF J = 3 THEN PLAY A$+Y$+A$+Z$ 

1929 NEXT 

1939 COLOR 26,12: LOCATE 21,26: PRINT " www Fasten Seatbelts ia " 
1949 FOR I = 1 TO 599: GOSUB 1579: NEXT I: GOTO 139 

1959 SOUND OFF: SOUND ON: COLOR 5,2,12: CLS 

1969 FOR I = 1 TO 3: SOUND 599*1,2,11: NEXT I 

1979 LOCATE 1,1: FOR I = 1 TO 86: PRINT CHR$(219);: NEXT I 

1989 LOCATE 5,1: FOR I = 1 TO 8g: PRINT CHR$(298);: NEXT I 

1999 DATE = INT(RND*7777771!)/199 + 1999.11 

2999 LOCATE 3,32: COLOR 1: PRINT "STARDATE " DATE: COLOR 14,1 

2919 PLAY "O3 V11 T129 MB MS C4C16G.T255B-8G8E8C." 

2929 LOCATE 7,19: PRINT "Welcome aboard the StarShip Enterprise." 

2939 LOCATE 9,19: PRINT "This is Lt Uhura,” 

2949 LOCATE 11,19: PRINT "Please enter your name in the Admiral's Log." 
2959 LOCATE 13,39: COLOR 9,2: INPUT; "", NAS 

2969 IF LEN(NA$) < 19 THEN 2139 

2979 LOCATE 13,39: FOR I = 1 TO LEN(NA$): PRINT " ";: NEXT I 

2989 PLAY "T255 CAE" 

2999 LOCATE 7,19: PRINT "OK Captain -- We know you're proud of your heritage," 
2199 LOCATE 9,19: PRINT "But these computers can only handle 9 alphanumerics," 
2119 LOCATE 11,19:PRINT "So let's try it one more time [P.S. Spock's watching]." 
2126 GOTO 2959 

2138 COLOR 14,1: LOCATE 15,19: PRINT "Thank you Captain " NAS "." 

2149 PLAY "V1g MN T255 06 C8C8" 

2159 FOR I = 1 TO 199g:NEXT I: COLOR 14,1,1 

2169 LOCATE 17,1: FOR I = 1 TO 89: PRINT CHR$(32);: NEXT I 

2179 PLAY "T22501C1602C1603C1604C1605C1606C16" 

2189 LOCATE 18,1: PRINT "Sir, urgent coded message arriving from " 

2199 LOCATE 18,41: PRINT "StarFleet Command 

2299 FOR I = 1 TO 1999: NEXT I 

2219 LOCATE 19,1: FOR I = 1 TO 89: PRINT CHR$(32);: NEXT I: COLOR 12 

2229 FOR J = 29 TO 23: FOR I = 1 TO 89: LOCATE J,1I,9: Κ85ΙΝΚΕΥ͂Σ 

2239 SOUND INT(RND¥*4999)+1999,.8,19: IF K$ ο "" THEN 2489 

2249 PRINT CHR$(RND*221433);: NEXT I: NEXT J 

2259 FOR I = 1 TO 1999: NEXT I 

2269 COLOR 11,1,6: CLS 

2279 PRINT " Ship's computer now decoding message 

2289 COLOR 15: PRINT: SOUND ON: FOR I = 1 TO 3: SOUND I*2999,2,15: NEXT I 
2299 FOR I = 1 TO 2999: NEXT I: SOUND 1999,15,11: COLOR 14 

2399 PRINT SPC(19) CHR$(4) " CONDITION YELLOW ^" CHR$(4): PRINT: COLOR 7 
2319 FOR I = 1 TO 999: NEXT I: SOUND 4999,5,12 

2329 PRINT SPC(19) CHR$(4) " StarBase $" INT(RND*941); 

2339 PRINT "reports unidentified craft," 

2349 X = INT(RND*941) 

2359 FOR I = 1 TO 999: NEXT I: SOUND 4999,5,12 

2369 PRINT SPC(1g) CHR$(4) " approaching at WARP Factor" X "." 

2379 FOR I = 1 TO 999: NEXT I: SOUND 4999,5,12 
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Make The Right Connection 
With A Tandy’ Printer 


We've got a Tandy printer for 
your every need 

When you buy a printer, the last 
thing you want is to find that it's not 
compatible with your computer, or 
that you can't find accessories or 
support. So why take chances? 
Come to Radio Shack, where you'll 
find a wide selection of printers that 
are ready to use with Tandy and 
other popular compatible comput- 
ers. Plus, we give you the profes- 
sional support you demand. 





Triple-mode “personal printer" 

If you need correspondence- 
quality printing with variety, our 
DMP 130 is the ideal printer for 
you. It prints in four character 
styles: standard or cursive italic, in 
front-panel selected draft or corre- 
spondence modes at up to 100 
characters per second. It also sup- 
ports super/subscripts, double- 
width, bold, double strike and 
microfonts. IBM® PC compatible, 
too. (26-1280, $349.95.) 





Budget-priced high performer 

If you're looking for an affordable 
printer, you'll find our DMP 105 is 
ideal. This speedy printer produces 
80 upper and lower case characters 
per line at 43 lines per minute (80 
cps). With a bit-image graphics 
mode and removable adjustable 
tractor, our DMP 105 is a true per- 
former! (26-1276, $199.95.) 


132-columa printer with 
18-wire print head 

Never before has such fine print 
quality been so affordable! The 
print head of our DMP 430 contains 
18 wires to produce excellent 
correspondence-quality fonts in a 
single pass. Prints 10, 12 or 16.7 
characters per inch, plus elongated 
standard, elite and condensed at up 
to 180 characters per second. You 
can choose from micro, italic and 
double-high fonts, too. The DMP 
430 features a true pin-driven 
tractor— not sprocket. IBM PC 
compatible. (26-1277, $899.) 





Dot-matrix power for business 

The DMP 2200 is our most versa- 
tile business printer. Because it's so 
fast, there are no more long delays 
for reports—and that means your 
business saves money. It supports 
elongated, double high, bold, un- 
derline, super/subscripts, italics and 
double strike, plus bit-image graph- 
ics. You can print your original re- 
port, plus up to six copies at 380 
characters per second. It also has a 
built-in tractor for perfect paper 
alignment. Plus, it's IBM PC com- 
patible, (26-1279, $1695.) 


Save time while printing 

With a PTC 64 Printer Control- 
ler, you can print one job while 
working on another. The “print 
buffer” accepts and stores informa- 
tion from your computer, then feeds 
it to your printer as fast as the 
printer can handle it. It features a 





clear-memory function, a pause 
function and a copy function for 
printing up to 100 consecutive orig- 
inals. The built-in Z-80 processor 
can be programmed by the host 
computer to handle graphics and 
special text. (26-1269, $249.95.) 


Tandy...Clearly Superior™ 

We've got over 1200 Computer 
Centers nationwide ready to help 
you choose the very latest in com- 
puter technology, and we'll give you 
the service and support you need. 
With over 188 strategically located, 
company-owned Service Centers, 
you can be assured of excellent ser- 
vice when you need it. 


And we've got a wide variety of 
accessories too—everything from 
paper and pre-printed forms to 
print-wheel cleaning kits. Visit your 
nearest Radio Shack Computer 
Center and see our complete line of 
printers and accessories today. 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


Radie Shaek 


COMPUTER CENTERS 


A DIVISION OF TANDY CORPORATION 


" SE 25) το EG OI 31 Hy 
Send me an RSC-16 Computer Catalog. 


Radio Shack, Dept. 86-A-901 
300 One Tandy Center, Fort Worth, TX 76012 


Name 


Company 


: 

—! 

ο ο ο ον Β 
————— 

i 


. μμ. νι We σα 


SIN T. -ἅ-ο οκ 
Phone 


ἘΠΕῚ KES EE pE me 0 E, 


Prices apply at Radio Shack Computer Centers and 
participating stores and dealers. IBM/Registered TM 


International Business Machines Corp. 
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2389 PRINT SPC(19) CHR$(4) " You must stop their advance at all cost." 

2399 X = INT(RND*941) 

2499 FOR I = 1 TO 999: NEXT I: SOUND 4999,5,12 

2419 PRINT 5ΡΟ(16) CHR$(4) " Identify your last known contact in Sector" X "," 
2429 FOR I = 1 TO 966; NEXT I: SOUND 4999,5,12 

2439 PRINT SPC(17) CHR$(4) " Proceed at once !" 

2449 FOR I = 1 TO 999: NEXT I: SOUND 5999,5,13 

2459 PRINT SPC(1g9) CHR$(4) " < END OF MESSAGE >" 

2469 FOR I = 1 TO 2999: NEXT I 

2479 GOTO 2499 

248g COLOR 11,1,8: CLS: PRINT:PRINT: PRINT: X=INT(RND*9+1) 

2499 COLOR 1,2,8: SOUND ON: NOISE 3,11,32999 

2599 PRINT 

2519 PRINT wee Computer Memory: Sector " X ". 

2529 PRINT 

2539 FOR I = 1 TO 1999: NEXT I 

2549 PRINT >>> Enter 1 - Romulan Probe 

2559 PRINT >>> Enter 2 - Klingon Battle Cruiser 

2569 PRINT >>> Enter 3 - Khan's Warship 

2579 PRINT 

258g AS = "" 

2599 ΑΦ = INKEY$: IF A$ = "" THEN 2599 

269g IF A$ = "1" THEN EN=4: EM=7: ME-2: EN$-"ROMULAN": GOTO 2649 

2619 IF A$ = "2" THEN EN=3: EM=4: ME-4: ENS="KLINGON": GOTO 2649 

2629 IF A$ = "3" THEN EN=2: EM=2: ME=6: EN$-" KHAN'S": GOTO 2649 

2639 GOTO 2589 

2649 SOUND ON: SOUND 777,29,8 

2659 COLOR 12,1: EMISS-EN*14: MEX=ME+5 

2669 FOR I = 1 TO 8g: PRINT CHR$(254);: NEXT I:PRINT:FOR I = 1 TO 59gg:NEXT I 
2674 COLOR 29,3,4:LOCATE 29,25: PRINT" CONDITION-RED" 

268g FOR Jel TO 5:FOR I=1 TO 19:SOUND I*599,.5,12:SOUND I*1999,.5,12:NEXT I,J 
2699 COLOR 19,9 

27060 LOCATE 24,13: PRINT "Captain " NAS " I"; 

2719 LOCATE 24,31: PRINT " >>> You're wanted on the Bridge.";: PLAY OFF 

2729 T$ = "O3 V11 T1290 MF MS C4C16G. T255 C8E8F8G8 T159 B-. Οὐ T59 C." 

2739 PLAY T$ 

2749 REM "eoeleieieieieieieieieicick MATIN PROGRAM wicykiciriririiciciciriciciciriciciciciciciciciciricirciciriciciciciciciciokeicie 
2759 REM  *eeeleeieieieeieeledeek INITIALIZATION  wiriiciciririciciciriciciciciciciciÑiciciciciciricicicicic 
2760 FOR I = 1 TO 6: SS(I)-9: NEXT I: FOR I = 1 TO 5: TE(I)-9: NEXT I 

2779 SCREEN 6: CLS: TIMER ON: TIMEX-TIMER: ΜΙ55-6: PA-9: PO-9: SP=9: SX-U 
2780 KP-25: PR=39: ΖΑΡ-6: TORMIS=9: YD-9: SD=9: PD-g: TD-9: CD-9: το: SH=ğ 
2799 TS-9: ττ-ρ: TP-9: TC-g 

2899 SOUND ON: PLAY "T99MBO5V9ML C.04G.B-.F.P39C.03G.B-.F." 

2819 EE = 30: REM - ENTERPRIZE REPAIR TIMER FACTOR 

2826 GOSUB 2839: GOTO 2840 

2839 PALETTE 3,1 :PALETTE 9,3: PALETTE 2,14: PALETTE 1,12: RETURN 

2849 FOR I = 1 TO 12: KEY I, "": NEXT I 

2859 REM -- W1$ - W3$ ARE FOR WORK PARTY SOUNDS 

2869 REM W1$ = "MBV19L16T25504C. FGEDC+FFG-CEA." 

2879 REM W2$ = "MBV1OL16T255MLOSEFG+G+GE-DA+CGDF" 

2889 REM W3$ = "MBV19L16T255MSO3A. DAGFE-DCC+BG" 

2899 KB(1,1)=349:KB(2,1)=49:KB(1,2)=347:KB(2,2)=52:KB(1,3)=353:KB(2,3)=55 
299g KB(1,4)=357:KB(2,4)=59:KB(1,5)=361:KB(2,5)=63:KB(1,6)=364:KB(2,6)=68 
2916 KB(1,7)=366:KB(2,7)=73:KB(1,8)=368:KB(2,8)=79:KB(1,9)=368:KB(2,9)=85 
2929 KB(1,19)=368:KB(2,19)=91:KB(1,11)=366:KB(2,11)=97:KB(1,12)=364:KB(2,12)=192 
2936 KB(1,13)=361:KB(2,13)=197:KB(1,14)=357:KB(2,14)=111:KB(1,15)=353 

2949 KB(1,16)=347:KB(2,16)=118:KB(1,17)=349:KB(2,17)=129:KB(1,18)=333 

2956 KB(1,19)=326:KB(2,19)=129:KB(1,29)=319:KB(2,29)=118:KB(1,21)=313 

2960 KB(1,22)=399:KB(2,22)=111:KB(1,23)=395:KB(2,23)=197:KB(1,24)=392 

2979 KB(1,25)=399:KB(2,25)=97:KB(1,26)=298:KB(2,26)=91:KB(1,27)=298:KB(2,27)=85 
2980 KB(1,28)=298:KB(2,28)=79:KB(1,29)=399:KB(2,29)=73:KB(1,3G)=392:KB(2,39)=68 
2999 KB(1,31)=395:KB(2,31)=63:KB(1,32)=399:KB(2,32)=59:KB(1,33)=—313:KB(2,33)=55 
3999 KB(1,34)=319:KB(2,34)=52:KB(1,35)=326:KB(2,35)=49:KB(1,36)=333:KB(2,36)=48 
3919 KB(2,15)=115:KB(2,18)=121:KB(2,21)=115:KB(2,24)=192 

3920 WR$="%*& WARNING ** Insufficient Power **"; MS$-"Mr Spock, ":MZ$-"Sulu, " 
3030 RA$-"Raise shields quick.": LO$="Lower shields.": SRS$="Sir, " 

3949 CAS="Captain ": SC$-"Scotty, ": RP$="- Repeat your order Sir." 

3959 ADS=" are damaged!": TT$="Torpedo tubes": PB$-"Phaser banks" 

3969 CD$-" crystal damaged!": WE$="Warp engines" 

3979 CMS="Main computers": LS$="Long range sensors": TS$="Targeting systems" 
3989 LF$-"Life support systems": HL$="Ship's structures" 

3999 EX-36: SHeg: DY-3: KX=36: ER-g: KF$e"": K$e"" 

319g KH!-9: KV!-25999: KD=189: KS-3: RG=25999 

3119 PT-19: PX=g: GOSUB 3499: CDPR=3 
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(113129 LOCATE 5,7: PRINT GAS NA$ "..... " 
|. 3138 LOCATE 7,7: PRINT "Target is rapidly approaching." 
3149 VT = TIMER: QT-19--(EM*4): REM - ENEMY REPAIR TIMER 
3159 KEY 1,"S": KEY 2,"L": KEY 3,"P": KEY 4,"O" 
3169 KEY 5,"C": KEY 6,"W": KEY 7,"E": KEY 8,"D" 

3179 NV-Q: HYPER=9 
318 SOUND ΟΝ 

3199 TM = TIMER: SOUND ON: NOISE 2,NV,3299g 

3250 SOUND 1986,3,11 i 
3218 GOSUB 414g 

13220. GOSUB 4290 

3238 GOSUB 8714 

3249 COUNT < g 

3259 AS = INKEY$: COUNT = COUNT + 1 


3268 IF AS < "" THEN 3459 i 

3279 IF AS = CHR$(49) THEN GOSUB 6239: GOTO 3259: REM - 1, IMPULSE 
4284 IF AS = CHR$(83) THEN GOSUB 5829: GOTO 3259: REM - Fl, SHIELDS ON 
3299 IF AS = CHR$(87) THEN GOSUB 7199: GOTO 3259: REM - F3, PHASERS ON 
3300 IF AS = CHRS$(51) THEN GOSUB 6279: GOTO 3259: REM - 3, HYPER 

3319 IF AS = CHR$(67) THEN GOSUB 8319: GOTO 3259: REM - F5, FIX SHIELDS 
3328 IF AS = CHR$(87) THEN GOSUB 8379: GOTO 3259: REM - F6, FIX WEAPONS 
3339 IF AS = CHRS(69) THEN GOSUB 8519: GOTO 3259: REM - F7, FIX SYSTEMS 
3349 IF A$ = CHR$(68) THEN GOSUB 8459: GOTO 3259: REM - F8, FIX ENGINES 
3359 IF AS = CHR$(55) THEN GOSUB 6289: GOTO 3259: REM - 7, WARP - 

3369 IF ΑΦ = CHRS$(53) THEN GOSUB 7299: GOTO 3199: REM - 5, PHASER 

3378 IF A$ = CHR$(57) THEN GOSUB 6299: GOTO 3259: REM - 9, WARP + 

3389 IF AS = CHR$(52) THEN GOSUB 5269: GOTO 3259: REM - 4, LEFT 

3399 IF ΑΦ = CHR$(56) THEN GOSUB 7449: GOTO 3199: REM - 8, TORPEDO ^ 
3428 IF AS =\CHRS(54) THEN GOSUB 5289: GOTO. 3259: REM - 6, RIGHT 

3419 IF A$ = CHR$(76) THEN GOSUB 5769: GOTO 3259: REM - F2, SHIELDS OFF 
3429 IF AS = CHR$(79) THEN GOSUB 7199: GOTO 3256: REM - F4, PHASERS OFF 


3439 IF AS = CHRS(59) THEN GOSUB 3469: GOTO 3199: REM - 2, TORPEDO AFT 

3449. GOTO 3259 

3459 IF COUNT > 59 THEN 3199 ELSE 3259 

3469 REM yeleleieieleicieiejeieteieiek ARTE TORPEDO LAUNCH ROR RII AI AIA IIIA IIIA IIA I AIH IIE 
3479 XESEX: EX=EX+18: IF EX>35 THEN EX=EX-36 

3489 GOSUB 7449: EX-XE: RETURN 

3499 REM eer TACTICAL SCREEN SETUP oono iieii 

359g VIEW (9,192)-(639,199),3 

3519 WINDOW SCREEN (2,0) (408,14) :ΡΑΙΝΤ (249,125) ,3 

3529 FOR I = 1 TO 89: PRINT CHR$(229);: NEXT I 

3539 PRINT CHRS(221) SPC(19); 

3549 PRINT "USS ENTERPRISE COMMAND SCREEN"; 

3559 PRINT SPC(19) CHRS(219) " "s 

3569 PRINT ENS." STATUS iy 

3579 PRINT CHR$(222); 

3589 FOR I = 1 TO 89: PRINT CHRS$(223);: NEXT I 

359g PRINT CHR$(221) SPC(49) CHRS$(219) SPC(28) CHR$(222); 


369g PRINT CHR$(221) SPC(49) CHRS(219) Range: KM 0*5 
361g PRINT CHRS(222); 

3628 PRINT CHR$(221) SPC(49) CHR$(219) " Heading: "i CHR$(248) ; 
3639 PRINT SPC(6) CHRS(222); 

3649 PRINT CHR$(221) SPC(49) CHR$(219) " 


Warp * : " SPC(13) CHR$(222); 


3659 PRINT OHR$(221) " 


3666 PRINT CHR$(219)  " " CHR$(222); 


3679 FOR I = 6 TO 8:PRINT CHR$(221) SPC(49) CHR$(219) SPC(28) CHR9(222);: NEXT I 
3689 FOR I = 1 TO 8g: PRINT CHR$(229);: NEXT I 

3699 PRINT CHR$(219) SPC(24); 

379g PRINT "TA OTI CAL SCREEN"; 

3719 PRINT SPC(25) CHR$(219); 

3729. LOGATE 15,3 

3738 PRINT "Impulse WARP Hyper" 

3749 LOCATE 15,62: PRINT "Target Bearing" 

3758 LOCATE 16,3: PRINT "Engines 1::2:053:31545:1:5:5:065:05:508::9::19 Drive" 


3769 LOCATE 16,62: PRINT "Enterprise Bearing" 
37790 LOCATE 19,7: PRINT "Shields" 
3789 LOCATE 19,24: PRINT "Phasers":; LOCATE 19,38: PRINT "Photon-Torpedos" 
3799 LOCATE 22,6: PRINT " Ship's ErgoSystems " 
3899 LOCATE 22,35: PRINT "Dilithium Crystals" 
3819 LOCATE 23,6: PRINT "Hull Oxy Aim Dat Com" 
3829 LOCATE 23,37: PRINT " * 1 #2" 
3839 VIEW PRINT 4 TO ll 
3849 CIRCLE (333,85),29,2,,,.45: SOUND 4999,1,11 
3859 CIRCLE (333,85),42,2,,,.45: SOUND 4599,1,12 
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3869 PSET (333,85),2: DRAW "TA369 N D9 UL3"+"TAI4G N U5'-"TA220 U5"; EX=36 
3879 PSET (283,39),2:DRAW "A3 ULI" + "TA5QU N U5" + "TAL49 05" 

3884 CIRCLE (291,19),3,1: PAINT (293,19);,1 

3899 LINE (9,49)-(53,52),2,B: REM FOR IMPULSE ENGINES 

3999 FOR I = 1 TO 19: LINE (41*1*16,49)-(5541*16,52),2,B 

3919 SOUND 599*1,1,(241): NEXT I 

3926 LINE (218,49)-(261,52),2,B: REM FOR HYPER DRIVE 

3939 LINE (15,73)-(89,99),2,B: REM FOR SHIELDS 

3949 SOUND 1999,2,11 

3959 LINE (111,81)-(133,72),2; LINE (133,72)-(155,81),2: REM PHASER TOP 
3969 LINE (111,81)-(133,99),2: LINE (133,99)-(155,81),2: REM PHASER BOTTOM 
3979 SOUND 2999,2,11 

3989 LINE (189,74)-(264,91),2,B 

3999 SOUND: 3999,2,11 

498g FOR I = 1 TO 5; y = I * 21 

491g LINE. (114J,129)-(29J,126),2: LINE (28*J,126) -(114J,133),2 

4929 LINE (114J,133)-(24J,126),2: LINE (24J,126)-(1143,129),2 

4939 IF YD-1 THEN RETURN ELSE PAINT (54J,126),9,2:S0UND 799*1, i, 11: NEXT I 
4949 GOSUB 4950: GOTO 4969 

4959 CIRCLE (196,127),6,2: PAINT (196,127) 9,2: RETURN: REM D.C. #1 

4869. SOUND: 1999,1,11:SOUND 2999,1,12:SOUND 1999,1,13 

4878 GOSUB 4989; GOTO 4999 

498@ CIRCLE (249,127),6,2: PAINT (249,127) ,9,2; RETURN: REM D.C. 2 

4999 SOUND 1999,1,11:SOUND 2909,1,12:SOUND 1999,1,13 

4199 LOCATE 19,3: PRINT "Available Generator Power " CHRS(16) " 199%" 

4119 LOCATE 19,60: PRINT "Status:" 

4129 GOSUB 7259 

4139 RETURN 

4149 REM “iki OXYGEN ΑΛΛΑ ΛΑΟ ΚΑ II IIA IIIS IIAIAII AHA III AISI IRIN. 
4159 IF SS(2)=9 OR TE(2)29 THEN RETURN 

4169 IF (IM-TL) < 12 THEN RETURN ELSE Z$="*** Life Support Failure |) wien 
4179 GOSUB 6919: FOR I = 1 TO 15: SOUND 3990,5,I: LOCATE 6,12 

4188. COLOR 1: PRINT Z$; SOUND 1999,5,1: LOCATE 6,12 

4199 PRINT " "LO NEXT τ; GOTO 9139 

4299 REM eee HIT ON ENTERPRISE ?  Yoicicicicicicicicicicicicyoicicicicioichririchririchrycohchochohyeqeyeyciyye 
4210 IF RG>29999 THEN 4349 

4229 L-INT(RNDWEM)X*2: IF 1-2 THEN 4239 ELSE 434g 

4239 FOR I = 1 TO 3: SOUND 2999,1,15: SOUND 1999,1,14: NEXT I: SOUND 699,1,15 
42450 GOSUB 6919: LOCATE 6,7: PRINT CAS NA$S " - We're under attack!" 

4259 X!-ABS(EX-KX): IF X1>18 THEN X!-36-X! 

4269 L-INT(RND*(Xl/3--SP4KS4EMISS)) 

4279 REM * THIS FACTORS ENEMY TYPE AND DAMAGE INTO HIT ON ENTERPRISE 

4289 IF L«(KP*MEX) THEN GOSUB 7588: GOTO 4349 

4299 FOR I = g TO 15: FOR J = 1999 TO 400 STEP -19g: SOUND J,.l,I: NEXT J,I 
43909 FOR K = 15 TO @ STEP -1: FOR L = 1399 TO 399 STEP -190 

4319 SOUND L,.2,K: NEXT L,K: GOSUB 6919: LOCATE 6,7 

43298 PRINT "Sir ;... That was a near misst": SOUND 3999,2,13 
4339 REM λα VECTOR CALCULATIONS BETWEEN SPACE-CRAFT. eeeeeeeedoeeeeiee 
4349 TV=TIMER-VT. 

4359 GOSUB 5219 

4369 IF SP=@ THEN X=19: GOTO 4389 

4370 IF SP-l THEN X=19 ELSE X-25*(SP-1) 

4389 X = X * TV 

4398 AN! = EX * 1745329 

4499 EVI= X * COS(AN!) 

4419 EH!- X * SIN(AN!) 

4429 X - KS * 25 * TV 

4430 IF KHIT > g THEN 4459 

4449 IF HIT = g THEN 4599 

4459 IF KHIT-2 THEN KHIT=Ø: GOTO 4599 

4469 KHIT = KHIT + 1 

4479 IF KHIT > 1 THEN 4498 

4489 IF RG = 2*INT(RG/2) THEN SIGN = -l ELSE SIGN = 1 

4498 KD = KD + SIGN*(INT(RND*MEX*5)4MEX*7): REM-FACTORS ENEMY VEERING IF HIT): 
4599 AN! = KD * 1.745329E-92 

4519 KH! = ΚΗῚ} (X*SIN(AN!))-EH! 

4529 KVT = KV! (X*COS(AN!1)) -EV! 

4539 RG! = SQR(KHIX*KH! + KVI*KVI) 

4549 IF RGI*3099g! THEN RG! = 399991: KD=KD+45 

455@ RG =CINT (RG!) 

4560 IF VV>% THEN 4589 j 

4578 LF RG<3999 THEN KD-KD4(154RND*(ME4KP)): KS-KS4ME: VV21: GOTO 4429 
4589 IF KVi=9 THEN KV! = .9991 

4599 KB = ABS(INT(ATN(KH!/KV!) *.57,29578)) 
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Give your Model 100 


128K 





AM 


Installs as easily 


as plugging 
in a socket 





Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 


PCSG says: Satisfaction guaranteed or your money back 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM +, that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


within 30 days 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 





Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM + lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank's entire memory, 
but leave intact all the files in the other 
banks. 

Whatis also fantastic is that you don't 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That's why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 


1-214-351-0564 
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4699 IF KVI<Q AND KHI«g THEN KB=KB+189: GOTO 4649 

4619 IF KV1>Q AND KHI>9 THEN 4649 

4629 IF KH!»g THEN KB=189-KB: GOTO 4649 

4639 KB-360-KB 

4649 X! = PR/LS! 

4650 IF X!»1! THEN X!-1! 

4669 X = INT(9*X!) 

4679 KS = CINT(X*SIN(169*RG/3999G*1.745329E- 182) 4 TET AY) Gab 
468g IF VV-2. THEN KS=KS+ME*2 

4699 IF VV-9 THEN 4739 ELSE IF VV=2 THEN 4719 

4799 IF RG«15998 THEN 4729 ELSE VV-9: GOTO 4739 

4719. IF RG»15990 THEN VV-9: GOTO 4739 

4729 X = SIGNKEN*19: GOTO. 4769 

4739 X! = KP/15 

4749 IF KISLI THEN X!-1! 

4750 X-CINT(189*X1) 

4769 IF KS»29 THEN KS=29 

4770 KD = KB+X+INT(RND*KS*2) 

4789 IF KD>369 THEN KDeKD-369 

4799 IF KD«l THEN KD=1 

4899 IF SS(4)=@ THEN 4849 ELSE 4879: REM - NEXT 3 LINES ARE A SUBROUTINE 
4819 LOCATE 5,67: PRINT "222722" 
4829 LOCATE 6,79: PRINT "722" 

4839 LOCATE 7,67: PRINT "?2?": RETURN 

4849 LOCATE 5,67: PRINT USING "##,###"; CINT(RG!) 

4859 LOCATE 6,69: PRINT USING " s"; KD 

4869 LOCATE 7,67: PRINT INT(KS) 

4879 KOL = KB 

4889 KB = KB/19: IF KB < l OR KB > 35 THEN KB = 36 

4899 PAINT (KB(l,KX),KB(2,K30),3 

4999 CIRCLE (KB(l,KB),KB(2,KB)),3,1: PAINT (KB(l1,KB),KB(2,KB)),1 
4910 KX-KB 

4924 REM * KP IS USED TO FACTOR ENEMY HIT ON ENTERPRISE 


49390 IF KP«ll AND KF$e"YELLOW" THEN KF$="RED ": COLOR 1,2:/GOTO 4989 
4949 IF KP«21 AND KF$="GREEN " THEN KF$="YELLOW": COLOR 2,3: 6010 49898 
4959 IF KP>18 AND KF$-"RED "THEN KFSe"YELLOW": COLOR 2,3: GOTO 4989 


4969 IF KF$="GREEN " THEN 5939 
4979 IF KP229 THEN KF$-"GREEN ": COLOR 3,9: GOSUB 2839 
4980 IF KS<>KF$ THEN 4999 ELSE 5039 
4999 LOCATE 19,68: PRINT KF$: COLOR 3,9: GOSUB 2839 
5990 FOR K = 5 TO 15: SOUND 1599,.7,K: NEXT K 
5919 SOUND 2999,1,15 
5024 K$-KF$ 
5939. VT-TIMER 
5949 IF VV-l THEN νν-2 
5959 RETURN 
5969 REM οκ HIT ON ENEMY? IAA AAA AA ASAD AAA AAA AAAS ASA AAAS AAAS AAS AAA AAI ASAIN. 
5979 LOCATE 7,6: HIT = g 
5080 K<INTCABS(1Q*EX-KQ!)): IF X>189 THEN X=369-X 
5999 IF X > (11-SS(3)) THEN 5199 ELSE 5139 
519g PRINT " T HERR we missed.": MISS-MISS42 
5119 PLAY "O2 V12 T1590 MF Οὐ O2 E-16GB8Fl6E-l6D160" 
5129 GOTO 5249 
5139 IF X > (6+SS(3)) THEN 5149 ELSE 5179 
ig PRINT " We just missed " CAS NAS ",": MISSeMISS4l 
5159 PLAY "03 V12 T159 MF Οὐ 02 E-16G8Fl6E-16D16C" 
5169 GOTO 524g 
5179 PRINT " S/o). DIRECT HIT +/+)" 
5186 PLAY "O3 V12 T1890 MF C4C16E16G8E16616 O4 C" 
5199 KP-KP-5: HIT=1> ΖΑΡ-ΖΑΡ41. 
5208 IF KP=9 THEN 9139 ELSE 5219 
5219 IF TIMER>TQ AND KP«39 THEN 5229 ELSE 5246 
5229 KP=KP+5 
5239 TQ-TIMER4QT 
524g. RETURN 
5259 REM Jeiki ENTERPRISE BEARING PISA AAA SA AA DASA SAAS AIDA AISA ISAS SAI. 
5260 IF(EX=1) THEN EB-36 ELSE EB-EX-l 
5278 GOTO’ 5299 
5289 EB-EX41: IF(EX-36) THEN EB=1 
5299 PS=3: PLAY "V19T125505F" 
5399 PSET (333,85),PS 
5319 IF (EX>24) THEN NX-EX-24: GOTO. 5359 
5329 IF (EX>12) THEN NX-EX-12: GOTO 5349 


5339 ON EX GOTO 53690,5379, 5389, 53909,5490, 5419,5429, 5439, 54490,5459, 5469, 5479 
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5348 ON NX GOTO 5489,5499,5599,5519,5529,5539,5549,5559,5569,5579,5589, 5599 
5359 ON NX GOTO 5699,5619,5629,5639,5649, 5659, 5669,5679, 5689, 5699,5799,5719 
5369 DRAW "TA35g N D9 U13"+"TA139 N US"+"TA219 U5": GOTO 5729 

5379 DRAW "TA34Q N D9 U13"+"TAL29 N US"+"TA299 U5": GOTO 5724 

5389 DRAW "ΤΑ336 N D9 UL3"+"TALLØ N US"+"TAL9G U5": GOTO 5729 

5399 DRAW "TA329 N D9 U13"+"TALGG N US"+"TA189 U5": GOTO 5724 

549g DRAW "TA31g N D9 U13"4"TA9g N U5"+"TAL7Ø U5": GOTO 5726 


5419 DRAW "TA39g N D9 U13"+"TA8G N 
5429 DRAW "TA298 N D9 UL3"+"TA7Ø N 
5439 DRAW "TA28g N D9 U13"+"TA68 N 
5449 DRAW "TA27g N D9 U13"4"TAS5Q N 
5459 DRAW "TA269 N D9 U13"&"TAAg N 
5469 DRAW "TA25@ N D9 U13"+"TA3g N 
5479 DRAW "TA249 N D9 U13"+"TA29 N 
5489 DRAW "TA239 N D9 U13"+"TA1@ N 


5499 DRAW 
5599 DRAW 
551g DRAW 
5529 DRAW 
553g DRAW 
5549 DRAW 
5559 DRAW 
5569 DRAW 
5579 DRAW 
5589 DRAW 
5599 DRAW 
560g DRAW 
5619 DRAW 


"TA229 N 
"TA219 N 
"TA29g N 
"TALI N 
"TA189 N 
"TAL7@ N 
"TALl6g N 
"ΤΑΙ15ᾳ N 
"TAl4g N 
"TA139 N 
"TA12g N 
"TAllg N 
"TA19g N 


U13"4"TA369 N 
U13"+"TA352 N 
U13"+"TA349 N 
U13"4"TA339 N 
U13"4"TA329 N 
U13"+"TA319 N 
UL3"+"TA3ØØ N 
U13"4+"TA299 N 
U13"4"TA289 N 
U13"4"TA279 N 
U13"4+"TA269 N 
Ul3"4"TA259 N 
U13"+"TA249 N 


5629 DRAW 
5639 DRAW 
5649 DRAW 
5659 DRAW 
5669 DRAW 
5679 DRAW 
5689 DRAW 
5699 DRAW 


"ΤΑ96 N 
"TASS N 
"TA7Z N 
"TAGS N 
"TA5g N 
"TAGS N 
"TA3g N 


U13"+"TA239 N 
U13"+"TA229 N 
U13"+"TA219 N 
U13"+"TA2g9 N 
U13"+"TA19g N 
U13"+"TA18g N 
U13"4"TA17g N 
"TA2g N 09 U13"4"TAl6g N 
5799 DRAW "TA1g N D9 U13"+"TA159 N 


US"+"TAL69 U5": 
US"+"TA15g U5": 
US"+"TAL4 U5": 
U5"+"TA13g US": 
U5"+"TAL29 U5": GOTO 
U5"4"TAllg U5": GOTO 5729 
U5"4"TAlgg US": GOTO 5729 
U5"+"TA9Ø U5": GOTO 5724 
U5"+"TA8g US": GOTO 5729 
U5"+"TA79 US": GOTO 5729 
U5"+"TA6Ø U5": GOTO 5724 
US"4+"TASG U5": GOTO 5724 
US"+"TA4G US": GOTO 5729 
U5"+"TA3Ø U5": GOTO 5724 
U5"+"TA29 U5": GOTO 5724 
U5"+"TA1g U5": GOTO 5724 
U5"4"TA36g U5": GOTO 572g 
U5"+"TA35g U5": GOTO 5729 
U5"4"TA349 US": GOTO 5724 
U5"4"TA33g U5": GOTO 5729 
U5"4"TA329 U5": GOTO 5729 
U5"4"TA31g U5": GOTO 5724 
U5"4"TA39g U5": GOTO 5729 
U5"+"TA299 US": GOTO 5729 
US"+"TA28G U5": GOTO 5729 
U5"+"TA279 U5": GOTO 5729 
U5"+"TA269 US": GOTO 5729 
U5"4"TA25g U5": GOTO 5729 
U5"+"TA249 U5": GOTO 5729 
U5"+"TA239 U5": GOTO 5724 


GOTO 
GOTO 
GOTO 
GOTO 


5729 
5729 
5729 
5729 
5729 


5719 DRAW "TAZ N D9 UL3"+"TAL4Ø N U5"+"TA22g U5" 

5729 IF (PS = 2) THEN 5749 

5738 PS = 2: EX = EB: GOTO 5366 

5749 RETURN 

5759 REM eek SHIELDS Yickiririciciciriciciciricicicicicicicicicicyriciciciciciciciciciciriciciciriciciciciciciciciciciciecic 
5769 GOSUB 5999: LOCATE 5,7: PRINT MS$ LO$: IF SH=g THEN 5979 

5776 IF SH-1 THEN 5799 

5789 FOR I = 12 TO 8 STEP -1: SOUND 666,1,I: NEXT I: PAINT (69,89),3: PR=PR+2 
5796 FOR I = 8 TO 4 STEP -1: SOUND 666,1,I: NEXT I: PAINT (25,89),3: PR=PR+2 
5899 5Η-Φ 

5810 LOCATE 7,7: PRINT "Sir, Shields deactivated.": GOTO 5989 

5829 GOSUB 5999: LOCATE 5,7: PRINT MS$ RA$: IF SH=2 THEN 5979 

5839 IF SD=% THEN 5859 ELSE LOCATE 7,7: PRINT SR$ "Shields" AD$ 

5849 GOSUB 6156: GOTO 8659 

585 IF PR>LØ THEN 5879 

5869 LOCATE 7,7:PRINT CA$ "- we have no more shield power!":GOTO 5849 

5879 IF SH=1 THEN 5919 

588g LINE (64,87)-(17,87),9:LINE (17,87)-(17,76),9:LINE (17,76)-(64,87),9 
5899 FOR I = 4 TO 8:SOUND 666,1,I:NEXT I:PAINT (25,89),9:PR-PR-2:SH-1 

5999 IF SD-1 THEN 5939 : 

5919 IF PR>8 THEN 5939 ELSE LOCATE 7,7: PRINT "Only 59% Shield activation." 
5929 GOTO 595g 

5939 LINE (31,76)-(78,76),@:LINE (78,76)-(78,87),9:LINE (78,87)-(31,76),9 
5949 FOR I = 8 TO 12:SOUND 666,1,I:NEXT I:PAINT (69,89) ,9:PR=PR-2:SH=2 

5959 IF SD-1 THEN RETURN 

5960 LOCATE 7,7: PRINT "Shields FIRM.": GOTO 5989 

5979 LOCATE 7,7: PRINT CAS RP$: GOSUB 6159 

5989 GOSUB 6186: RETURN 

5999 REM chink ZAP SCREEN  wciciciciciciciciciciriciriciciciciciciciciciciciricicicicicirioiiicicicicicdricioircicicicirici: 
6999 SOUND 599,1,8 

6919 FOR I = 5 TO 7: LOCATE I,3 

6929 PRINT " 

6939 NEXT I: RETURN 

6949 REM wiii ^ BLAST/LAUNCH  RANGE/HIT 
6959 X-g 

6969 IF X$ = "L" THEN 6979 ELSE 6999 
6979 IF RG2299gg THEN 6989 ELSE 6149 
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FINALLY, 
A MEMORY RESIDENT 
TIME AND BILLING 


with pop-up "stopwatch" screens. And it keeps 
track of your expenses. TIMESLIPS also allows quick batch entry of time sheets. Then TIMESLIPS 
automatically generates bills your way with user-definable billing phrases. 


FINALLY, TIME-BILL SOFTWARE THAT GENERATES BUSINESS REPORTS, FINANCIAL REPORTS 
AND GRAPHS. TIMESLIPS converts your time records into analytical tools that help you manage 
precious resources. 


FINALLY, MENU DRIVEN TIME-BILL SOFTWARE. And TIMESLIPS is written in plain English, with 
on-line help and telephone support at no additional cost, so you'll never be lost. 


FINALLY, AFFORDABLE TIME-BILL SOFTWARE. It's the 
only complete system for under $100. 
With a 30-day money back guarantee to boot. 


p timeslios< 
THE SOFTWARE THAT FITS THE BILL 


FINALLY! 
IBM PC/XT/AT compatible. 





> timeslips « 


| πμ το ται κο EO ΙΟ | BET PE "m 
To order toll-free, call 1-800-225-5669. For more information on = ptimeslips4 
TIMESLIPS, call North Edge Software Corp. directly at (617) 468-7358. ve Ron 


ΓΙ Yes, | am finally convinced that | have found the software that 





fits the bill. 
Please rush me copies of TIMESLIPS at $99.95 each 


plus $7.00 s/h (Mass. residents add $5.00 tax) for a total of $ 
C Enclosed is my check with this coupon. 
M/C Expiration 











C Please charge to my Visa 


| 
| 
| 
| 
| Card # 
| 
| 
| 
| 





O I'd like to get more information on TIMESLIPS, the software that fits the bill. 


Ι 
Name | 
Company ne ae ρα ος ολο αλ es Se eS 
Address | — edge... 
City | SOFTWARE ai. 
State at ip | Nn C O T tice 
Phone PO BOX 286 HAMILTON, MASS. 01936 


617-468-7358 
NORTH EDGE SOFTWARE CORP., PO BOX 286, HAMILTON, MA 01936 ών cu Ebo 20 uo 
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m 82g. TF:G0-1.THEN. RETURN | . 

| - 6i \RG=25 999: | VISTIMER: .ΚΗΙ 2: KV!-2599g: KD-1: KS-3: GOTO 798g 

| uu FOR = lO Vik FOR J= 1 "TO 5: SOUND 254K*T, :.β5,Κ: NEXT J: NEXT K 
6856 GOTO) | 6889 Vi i 

| 6868 FOR K — 12 do. t STEP .-1; FOR J. 1 TO 5 

6879. SOUND 25*K*1,.05,K,2: NEXT J: NEXT K 

| 6889 NVE (542) 72: SOUND ON: NOISE 2,NV,22999: RETURN ! | 

- 5896 REM ` annee Soi FOR. HYPER- WARP ο”... 

699g. GOSUB 5999 ` 

- 6919 FoR I = - 1 To! ig: ‘COLOR. 9 x! + 

| 6929) LOCATE ` 6,15: PRINT "HY PER - D R I V E" 

E ‘FOR J = 499 TO 1099 STEP 19g Xt ; 

Like tup. 322,11: 
ῇ ie =. 
696 SOUND, M, 2, un "M 
. ,697 NEXT. TA ; That T 

. 698g ‘LOCATE 6 15; UM 1111 " 

Y 16999) FOR Kis 1999 TO AMA STEP. um 

7499 ‘SOUND K,.2, n. 

À 1919. L = 198 + K 
| 7929 SoUND L, LL al, Y * 
` 7939. NEXT K ` . l 
| βάρ. NEXT. Ι΄. 
μα 'COLOR AWANA 2839 r 
has LOCATE 6,15: PRINT "STARBASE & add ahead: "i 
7979 TL-TIMER: RETURN  .. 

s, IF) (6021: THEN' RETURN ELSE GOSUB 6184: RETURN 1 ' l 
ο REM sooo . IPHASERS Paiasso asaini eiaa doia AA : 
GG ‘cosuB ` 599. LOCATE 5,7: PRINT MZ$ "Energize Phasers.":LOCATE 7,7 

MEA IF PD-l THEN. ‘PRINT SR$ PBS AD$: GOSUB 6159: GOTO 724g. 
. 7128 B: PAaL THEN 7239 ... 

x 17132 IF PR<4 THEN PRINT. WRS: GÓSUB 6189: GOTO 8656 . 

t ΑΦ: LINE. (11881) - (133,76): LINE (133,76)- (148,81) ,g:. REM FILL ‘PHASER 

` TA LINE :(118,81)-(133,85),9: LINE (133,85)-(148,81),9: PAINT (125,81); ? 

| 716g. FOR I = 1999 TO 19999. STEP. 1999: SOUND I,1,19: NEXT I 

ῃ 28. PREPR=2: | ` IF 'PD=1 “THEN RETURN 

* 718g ῬΆ-1: PRINT 048 "- Phasers at FULL pover.": GOTO 724g. . 

i 17199: GOSUB' 5999: LOCATE 5,7: PRINT MZ$ "Deactivate Phasers . i IF PA=9 THEN 7239. 

\ 7299 PAIN? (125,81),3,2: PR=PR+2: PA=" ' i 

i | 17219) FOR I = 19229 TO. 1999 STEP. -1999: SOUND I,1,1g: NEXT I 

` 7228 LOCATE 7, 1: PRINT CA$ "Phasers are deactívated.": GOTO [2 

41239. LOCATE | 7,7: PRINT GAS NA$ RP$: COSUB 6159 

: 17248  GOSUB 6189: RETURN ; | 
- 7259. REM ΜΟΝ * PHOTON ARM - αχ habe hse tated Blade lead Belek BW 9 ede’ 

117260 FOR I. = 1 TO PT: CIRCLE (1*81178,82),2.2,2,,,2 

* 17278 ‘PAINT (8178, ,82),9,2: SOUND.1234,1,9: NEXT I: PO=L 

TASA, RETURN) | 

Ns Ces perii \Btast! jaadara rioan isola 
n thani ki X$2"B": 60608 6949: IF X-l THEN 743g 

7309. 18 PD-l THEN 7426. 
7338 IF. PA=$) THEN: 7419 ` I 

ME FOR I = 59g TO 5999 STEP 19g:SOUND I,.1,15:NEXT I:SOUND 3999 ..2,15 

- 735 LOCATE 5,14:PRINT "κκ PHASER - BLAST xe" 

| 17369, FOR I = 1 TO 31 STEP 2: X = 375/(2441) 

«11379. FOR. J = 599 TO 2500 STEP 599:SOUND J,.l,X: NEXT J 
- 7984 FOR K = 2599. TO. 599 STEP -599; SOUND K,.1,X: NEXT. K 


11399. ἃ 
" ven Soave ‘S969 \GOTO! 7439) 
kt: LOCATE. 6, As PRINT CAS “ ..Phasers have not been energized.: GOTO: 6159 
μι 3429 , LOCATE '6, Ay) vient CAS. ", " PBS. ADS: GOTO 6159 i 
117438 "RETURN | 


| | 7449) REM . wide | ΣΣ] ο... 
E 245g. GOSUB | 599g: XS="L": 50503 6849: IF Kel THEN 7579. 

| 7468 IF TD=1 THEN 7569 ` 
b 747g. IF PO=G THEN 7559 | j | 
"12489 IF PT=9 THEN LOCATE 6,7: PRINT GA$ "- Torpedos are all gonet": GOTO, 6159 
| 7499 FOR K=0 TO 15:SOUND K*1ggg,.2,15:S0UND K*259, .2,15;NEXT K: SOUND 5999 ;2,15 
|. .759g. LOCATE 5,191 PRINT’ eke! “TORPEDO: + LAUNCH | eee" 

(7519 PX-PT: GOSUB 7529: 6016 7539 
| 7529, FOR I = PT TO PX STEP -1: PAINT (1*84178,82),3: NEXT I; RETURN 

end FOR I = 15.T0 g STEP -.1:SOUND 799g,.1,1: SOUND 5899. . lI; NEXT T. 

41 TTePT-1: -GOSUB- 596g: GOTO 1578 
AU 5p Locare 6, 6; PRINT. nu "^ Torpedos have not been armed.": GOTO 6154 
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7569 LOCATE’ 6,6: PRINT CA$ ", 
7579 RETURN ` ' 
758 REM ek HIT : e Ç ^ ^ i 
759g. FOR I = g TO 15; FOR J = 199g πο A4gg STEP “199: SOUND, Js d$, τι (NEXT J, πὶ ΠῚ 
7699 PLAY ."V15MBO4T9 GB" i T 1 à 1111113113. 1 
7619 GOSUB 6919; \ LOCATE 5,7: PRINT CAS NAS " Mar i 1 Wi 3 M V043A3Y11W3Y94Y53113 A 
762g. LOCATE 7,7: PRINT "We've been HIT !" ` i i! l ΑΥΤ AT 
7639 PLAY "7258 V14 MF. 06 C16 05 G16 04 C16 03 Cl6 ορ G16 Ol C16 og ti". ' 
7649 FOR Je19g TO 1999 STEP 25:S0UND J,.g1l,12:SOUND 11gg-J,.g1l, 1g: NEXT J 
165 LOCATE 5,7: PRINT "Standby for Engineering damage: report. 449% 
7662 FOR I = 199 TO spog STEP 1998: SOUND, T PL, 12: , NEXT, Dit 111 A petis anette 
7679 LOGATE 7,7 1i Επ οτι λ.χ LHA 
7689 ON. (SH+1) (GOTO. 7759, 7729,7699° Al ATA ut ΠΤΙ 1 
. 7699 SH=1: PAINT (69,88),1,3: PRePR42 Ἢ ETTERTID 1129317 ARLEN | 

779g. PRINT "Shields. 59% Sesrreradl ta ' ΠΗ 

7719 80.1: GOTO 8249 Y AY340111 03 . š TiS 

7729. SH=Z2: PAINT (25,89),1,3:) PR=PR42 111 hath hak 

7739 IF. TS» THEN PAINT (25,89) ,2,3 τη j 

77498 PRINT "All Shields destroyed": GOTO rug i 
7759 L=INT(RND%7)+1: ON L GOTO +7769, 7799; 7859, Ld 7969, 196, sey. 
7768 IF PA«g. THEN. 7759. ` 1 ilit 
7774. PA=0: PAINT (125,81), 1,31: PR=PR12: PD=1 111111103 311313 111. χα 
778g.PRINT.PBS " are gone!"::GOTO! 824g) | | MAT k 1111 ΠΠ} 
7798 IF PO=g ΤΗΕΝ 7759. id 11111} 141 τι E111 
7899 IF'PT- THEN 7759 ELSE LPSPT |: U. Al 0155. τι} ΠΤΙ ιά 
7819 PO=9: TDI 1 : LAETI $2333 1439311 
7826 FOR I = 1 TO PT: CIRCLE (I*8-178, 82), CAVE EASE AY SLA Al AYAY 
7839 PAINT (I*84178,82),1: SOUND) 1234,1,9:. Í NEXT ivi 11141’ 
7849 PRINT TT$ "iare, blocked!"; GoTo 8249 ! (| AM 
7850: ON (DY+L) GOTO, 7759, 7949, 7869, 7929 
786g .DY«1: PAINT. (249,127),1,2:) PRINT "Secondary" tops 3 1111 
7879, SOUND, 599g,29,15: FOR I = L TO.1gg: NEXT. I 1.55 11.211133 
788g: IF TC>@ THEN PAINT (2493127),2° . 111) 
7899 LOCATE 5,7: PRINT CAS NAS. ", " WES. " are uséless!” 

7900 IF SX«2 THEN 8239 ELSE spal ' kà 1211341 ' 1v 
7919 GO-1: GOSUB 6788: GO=9: GoTo 823g | ΠῚ tee he ka AQT 
7928 DY=2: PAINT’ (196,127),1,2; PRINT "Primary" e$. i i I 
7939 CD=1; GoTo 8236 

7949 DY-8: PRINT "Impulse engines have shorted out!" > 5Ρ- 

7959. SOUND. 427g, 19,15: GOSUB 6018: G0-1: GOSUB 6770: σο-φ: | GOTO πα 
7969-L-INT(RND*6)41: IF $S(L)=1 THEN 7969 ELSE SS(L)=1 


3. 


".TI$ ADS: GOTO 615g. 


7970 YD=1 
798g ON L GOTO: 8169, 8199, 898g ,896g, 823g, 8169. ARIY 
7999 PRINT B$; LOCATE 5,7:. PRINT " ky χη 


8999 LOGATE 5,7: JeL*21:. PAINT.(54J, 126), 1,2; costs Ang 
8919 FOR I = 12 Toil STEP -1: SOUND η, 1,15: NEXT. ii RAFEL Αν 
8920 RETURN i i i Dette Va kl ARE 
8239. B$ = SR$ + M$ + AD$: GOSUB 7999. ixi ΑΕΕ 11i ' + 

8949 PRINT "Generator readings have malfunctioned. " Ux 

8959 LOCATE 12,31: PRINT "277": GOTO 824g AAT Τα} 11i 
826g B$ = SRS. + LS$ + AD$:. GOSUB. 7999. 111 i i $ 
8979 PRINT "Target vector data unavailable. ": GOSUB ABL IOTA 8249 . 1i 
8989. BS = SRS + TS$ + AD$: GOSUB 7994 4% | 

8999 PRINT "Weapons accurracy is reduced!": GOTO 8248 τι 

8199 B$ = 589 + LF$. + AD$: 'GOSUB 7999 ` 

8119 PRINT "Remaining oxygen ΑΝ 19 seconds we", FOR I -1 TO is 

8120 LOCATE 5,27: PRINT " "; FOR J = 2599 TO 5999 STEP 259 AETIA 

8139: SOUND J,.1,11: NEXT J:) LOCATE 5,27: PRINT "1g" A | E311 
8148 FOR.J = 2599 TO 1999 STEP -259: SOUND J,,1, l1; NEXT J: NEXT T 1 

8159 TLATIMER:: GOTO: 824g 1 ' Αν 
8169 IF SS(1)-l AND SS(6)-1. THEN 822g tae hy lid 1 | 
8170 B$ = SR + HLS +.AD$; Le1: GOSUB 799% Aiii ΚΤῚ 
8189 PRINT "Outer hull is near collapse nm": ‘LOCATE! 15 ALLL 1113 

8199 PRINT ">>> We can't sustain another hit <<<": FOR Iia 1 T0 2 

829g. FOR J = 1g TO 49 STEP 2: SOUND 1599, 93,12: LOCATE - 6,1: PRINT "en 

8219 LOCATE 6,J:. PRINT." "; NEXT J: NEXT I: GOTO 8249 
8229. SOUND’ OFF; «SOUND ‘ON: $t ο στα Is Ars wer: GOTO "A 

8239 .PR-PR-CDPR i | 

8242 REM ' 1 Í 

8259 FOR I = 15 TO 1 STEP -1: Viel 3ggg , .^,1: SOUND 199g. i155 NEXT I 

8260 GOSUB 6180:. RETURN 

827g REM week REPAIR START δ να 
8280 GOSUB 5994; LOCATE 5,7: PRINT "Engineering. TM " AS: LOCATE ^y 7% [ 
8299 BAD=9: IF PR«19: THEN: GOSUB 8596; BAD=1 - ` 
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| 8399 RETURN Pes 
8319 A$-"those Shields !": GOSUB 8289; IF BAD=1 THEN RETURN 

8326 IF SD=9 THEN 8629 Pe : 

84334 IF. TS>9 THEN 8699 ELSE TS=TIMER 

8349 PAINT (69,89),2,3 

8359 IF SH=9 THEN PAINT (25, 89), 2, E 

|. 836g GOTO 8669 

8379 A$-"our Weapons": GOSUB 828g: IF BADel THEN MTM 

8389 IF PD-9 AND TD=9 THEN 8629 

8399 IF PD-9. THEN 8429 

849g IF PD-l AND TP=% THEN TP=TIMER: PAINT: (125,81) .2,3: 6916. 9660 

8419 IF TD»g THEN 8699 

‘8429 IF. TT»9| THEN 8699 ELSE TT=TIMER 

8439 FOR I = 1 TO PT: CIRCLE (1*84178,82),2,2,2,,,2 

8449. PAINT (I*84178,82),2: SOUND 1234,1,9: NEXT I: GOTO, 8669 

8459 ΑΦ." εδ Crystals!": GOSUB 8289: IF BADel THEN RETURN 

8469 IF CD=9 THEN 8629 

8479. IF TC»9 THEN 8699 ELSE TC=TIMER 

8489 PAINT (196,127),2,3.. 

(8499 IF DY=1 THEN PAINT (249,127) ,2,3 

8599. GOTO 8669 it 

8519 AS="Exgosystems!": GOSUB 8289: ΤΡ, Babit THEN RETURN ή 

8529 IF YDeg THEN 8629 j | 

8539. IF SS(6)=1 THEN SS(1)=1 

8549 X-9: FOR I = 1 TO 5: IF SS(I)-l THEN 8559 ELSE 856g. 





855g IF TE(I)>B THEN 8569 ELSE TE(L)=TIMER:X=1: PAINT ΟΥ 126), 2: GOTO ssp. 


8569 NEXT I: ΙΕ SS(6)=9% THEN 8589 
8570 IF TE(1)>9 THEN 8589 ELSE TE(1)=TIMER: X-1l 
8589 IF X=9 THEN 8699 ELSE 8669 
8599 PRINT WR$: GOSUB 6158; GOTO 8656 i 
869g PRINT "Work party already dispatched - Sir." 
8619 FOR I = 1 TO 19: SOUND. 4gg4I*29,1,(5*1): NEXT I: (RETURN | 
8626 PRINT "But Sir, Ship monitors read normal!" J 
8639 FOR I = 1999 TO 799 STEP. -19g: SOUND I,1,11: NEXT I 
8649 FOR I = 1 TÓ 3: SOUND 1299,2, 11: NEXT I 
8656 SOUND 2999,19,19: RETURN l 
' 8669 LOCATE 7,7: PRINT "Yes Sir, We're on our way 
8679 PLAY “MBVLQL1 61255040. FGEDC+FFG-CEA."— 
8689. IF PLAY (9) = B GOTO. 8799" 
8699 GOTO 8689. 
8790 PR=PR-2: GOSUB 6186: RETURN 


8719 REM "eek FIX μμ... 


/ 872g X-TIMER-EE. 
8739 IF TE(2)29 THEN 8899 
8749 IF TS»g THEN 8839 
Í R759 IF TE(1)»g "THEN 8850 
8769 IF TT>9 THEN 8889. 
8176 IE ΤΙ» THEN 892g . 
878g IF TC». THEN 8959 
8799 FOR I =. 3 TO 5: IF TE(I)>g THEN 8989 ELSE NEXT I: FIRI 
(9809. IF (TE(2)*12)9TIMER THEN 8749 ELSE TE(2)=9: SS(2)=g 
118814 FOR, I = 1 TO 6: IF SS(I)el THEN 8829 ELSE NEXT ΜΗΧ 
| 8820 ASeLF$: Im2: GOSUB 9969: GOTO 919g / 
| 8839, IF X<(TS+79) THEN 8759 ELSE TS=9: GOSUB 5889: 5υ-φ.. 
| 8840 Αδ-"Α11. Shields": GOTO 9199 
8859 IF X<TE(1) THEN 8769 ELSE TE(l)eg; SSCL)AG; 5εί6ό)-ᾳ τς. 
8860. FOR I= 1 TO 6: IF SS(I)-l THEN 8879 ELSE NEXT τ. ‘oss Hf 
8879 ASeHLS: I=1; GOSUB 9969: GOTO 919g j i j ; 
888g IF X<(TT+5) THEN 8779 ELSE TT=g: PT=LP;: ΤΡ5ᾳ i i): 
8899. FOR I = 1 TO PT: PAINT Μη! 82; j3: NEXT I^. 
8999 GOSUB 7259: Tag) © 
8919 AS=TTS: GOTO. 9199. FEEF 
“19924 IF K<(TP+19) THEN 8789 ELSE meg: GOSUB' 7149: nd 
893g PA-1. ^. "| fj 
! B949 A$«PB$:.GOTO: 998. 
8959, IF X«TC THEN 879g ELSE TOC-g: CDeg | j 
8966 PAINT (196,127) /3: PAINT (249,127);3: 7708416727 byes 
/ 8979 GOSUB 4959: GOSUB, 4989: AS="Ship’s Engines"; GOTO 9199 
(898g FOR K = I TO 5: IF X<TE(K) OR TE(K)=9 THEN NEXT K rid sm 
: 3999 RETURN i 
"i 9999 τ-κ: TE(I)-9: S5(1)-9. ‘Jet: costa 9969 ^^^. 
/991g FOR K - 1 TO 6: IF SS(K)=1 THEN 9929 ELSE NEXT. K; mg. 
9929 oN (7-2) GOTO 9939,9949, "n í 
9938 AS=TS9; GOTO, 9199 . ᾿ 
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9040. ASe«LS$9: GOTO’ 9199 

9056 AS-CM$S: GOTO 9199 j ; 

$96Q! JeT*21: “PAINT (54J,126),3:. SOUND 758; 39. Inr Pg "^ 

9979 LINE (114J,129)-(2941,126),2: LINE (2947,126)- (αλα, 135). z. 

9989 LINE /(114J,133) -(24J, 126),2: LINE. (245, η aie, 129), 2 i) 

9999 PAINT (54J,126),9,2: RETURN pp Ln 

9108. GOSUB. 6916: LOCATE 6,7: PRINT- "Scotry Keres’ » AS "s are. ree Py 
9119-FOR Í -.1 TO 18: SOUND 1999,1, 1g: SOUND 799, 1,18. NEXT Ar FER 

9120 PR-PR42: GOSUB 6189:- RETURN 

9134 REM | Joo'eiioloeieieioeiine d WIN / LOOSE : ποπ κ μμ 
9149 SCREEN’ 9; COLOR d Ly W: COLS: COLOR. 28, 8: ‘SOUND ΟΝ; PLAY MANY, MES 2, 35. 
9159. If ΚΡ THEN WLel ELSE γιο iff PEELE SELL 


9169 TIME = TIMER - (TIMEX. ο 9 7 
9179. RATE: =, INT(WL19gU4ZAP*2g - rie Sagarren. oignons Misi] ei pun ig) Fi 
9184 IF WLeg THEN 9299 
9190 PRINT. " YOU VIN. !.":- PLAY: "T259MFO3V13  C8EB Gao CRéab 3Cd OUS gc. FF 6010 Ying 
3299 PRINT ".YOU. LOSE: PLAY’ "T175MFOLV12 (G.G,GL6GFE-DO, ή” 


9210 COLOR 11,1: 1466 3,35: PRINT." 

9229 LOCATE 6,15:1Ε WLeg THEN 924g 

9239 PRINT "Congratulations Y CAS NAS$." oat Goto. r 

924g “PRINT CA$ NA$ ", your tribunal has convened. - 

9256 FOR I = l TO 59: SOUND I*199,.5,19: NEXT. I ΚΑ, a 
9266 LOCATE 8,15:PRINT."Standby for your Efficiency. “72249 
9278: FOR Íy = 19. TO 1. STEP. -1: SOUND 19gg*I,5,1l: SOUND: πάς 5, 12; NEXT Pty 

9284 COLOR 14,8:LOCATE 18,39; PRINT ">>> M RATE n eee. ‘COLOR 15, ο / 

9299 ΤΕ WL-g THEN 936g 

9399 LOCATE 12,19:IF RATE € 399 THEN 9339 ELSE. IF RATE < 1 ‘THEN 937g 

9319 PRINT "Ifyou, continue this outstanding performance;": LOCATE 13 AR. 

9329 PRINT "the Federation will surely. promote you to Admiral 1": GOTO. Sg 

9339 "PRINT "The Federation reviewed this mission and recommends": LOCATE 13, A^ 

934g PRINT "that you ον your, life. poadzenes, ή) the ο AMA Ful 

9359 GOTO" 9419 ; ppl 

9369, LOCATE 12/19 IF RATE. < -499 THEN 9399 ΜΑ, 
9370: PRINT "Starfleet Command has notified all Federation. ον tdi 13, gs 
9389: PRINT "that you are hereby on bb ate gD eet ‘further, REISS y? οσο M, 


"£ 
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"Accounting and Business μα ment Sofware i 





ever. Τμ wonder what to th ui a 
‘how: to do it. Basic Business is the only ` 


advanced accounting system that provides a. A PARTIAL LIST OF FEATURES 





complete windowed help and index system. ^ | General Information Inventory 
Answers to your: questionis vr M close i as pet š All modules are menu driven / password protected * Up to 12 digit alphanumeric part numbering 
touch of a key. À + Unlimited data entry in all modules 9 Supports standard / average / suggested resale costing methods 
i Prints hundreds of detailed management reports * Integrated with Sal d Purchase Ord tems 
Not another cigar box system, Basic Business ` Superior documentation for ease Vus i. ον aes EE 
II offers features equivalent to those found in ` Stock or preprinted forms available Purchase Order 
systems costing hundreds more.’ oer aa $ 1 Supports user defined notes / comments on all forms * Maintains PO and Inventory files 
has never been easier or more complete. ` ` * All modules completely integrated i he miner «ον iat so seca 
. Need less help? Considere the popular Basic | || General Ledger © Maintains vendor purchase history 
Business Ἱ. It has most of the features found in. | e Unlimited user defined Chart of Accounts Didi Phar Sud Andel 
Basic Business II without the windows and | ^ de = anaes financial reports - νων aie ιν. °; ΜΗΝ. ΤᾺ Ae 
. to 99 user-defined departments 
κο and is upward. compatible should. eu Y I P P 9 Handles partial shipments / cancellations / changes of any SO 
needs change. $ i Accounts Receivable & Billing e Automatic credit checking during SO entry / invoicing / billing 
Consider the flexibility et Basic Business. You. 1] © Open item or balance forward * Provides extensive sales analysis reporting 
can generate over 300 reports or use the optional ` © Verifies customer credit limit at invoice entry * Maintains MTD billing and booking totals 
dBase File Formats for. ultimate iip i Supports service or inventory billing e Line item/total invoice discounts during SO entry and/ or invoicing 
gathering and reporting. Transfer information ` ee Point of Purchase (optional) 
Maintains full cash flow analysis 
to a database or spreadsheet program for total ` Prepares mailing labels and xdi lists © Entry of invoices posts to all pertinent modules 
custom reporting ability. Source code is also ` © Invoices stock / non-stock items 
available. for. those companies requiring . | Accounts Payable * Line item discount and tax application 
cus i ation | t hav. ialized a ccoun è Cash disbursement management for all vendors € Verifies customer credit limits 
ΠΛΗΝ otha ing mr ing. Supports hand written checks € Supports cash / check/credit card / payment on account and returns 
needs. ! 
I" k H ἀὰ} 4 A Automatically posts recurring invoices monthly * Controls electronic cash drawer 
Minimum Handware equi řements:. 80. 24. CR š User defined aging periods s 
2-360K ie 132 column printer, 64K CP/M 2.x, 128K | j Prints vendor mailing labels and lists 


MS-DOS or PC-DOS 2.0, PC /XT/AT or compatible. © 


30 day money back guarantee if all claims and features Mstedin. © - Payroll & Joy Coming ' 
this ad are not true. MasterCard and VISA welcome: Add | * Supports labor related job costing 
$2.50 for shipping. CA residents add 696 sales tax e Maintains federal, state and local tax tables 


^ 
Optional Products E P: ve and sick leave time 
-2 f id 941 infi 
Point-of- Purchase Module. x $99.95. : è Prints forms ani information 
dBASE H/IH File Formats .. m $29. 95 - RTT EER ΟΡΙΑ. DRI BASE πι 
some disk: formats att M! "E R4. PC-DOS- M. | ᾿ 





reviewing gli your records"; | LOCATE. VM 
pu juris 8. ni ‘Federation Courts Martial." ἘΣ 


d x pay] lj4:LOCATE 15,1:FOR I - 1 To 168: PRINT. ORES TO αλ I: nn 3, M 


L 942g FOR T= 1 TO 39g: NEXT I. 111 
Mord PLAY "T25518MF02719 CEDFEGFAGBA ΔΉ 7 


9449 LOCATE 18,19: IF μι THEN 946g. 


+ 4 9459. PRINT- "Mr. š Spock’ wants. ito know. Y you wish kb + 1 Mn 


* 


i 


" 


. 9469" PRINT "Meanwhile, ; Mr. Spock recommends that yes s either | s 


| 9478 . IF ENS = " 'KHAN'S". THEN. ENS = that KHAN" | ee 

| 9489 LOCATE 29,13; IF WL-g THEN 959g. ` nid i 

| 949g. PRINT". Y ay 4 Take on another " ἘΝ" XL bho 951 ΚΗ 
13599. PRINT"... 1 - Risk challenging i ‘another ia ENS n" i 11 + iu 
9519 IF ENS = "Mad. KHAN" | THEN: ENS | HAN eS τι Ae 

119528 LOCATE 21,13: IF WL=g Hii 955g. 


| 9534 PRINT!" n Return to Starfleee comand for your senda wees tah | i A 
954g. GOTO 956g. . 1111111311 in 11111 ; 
119559-PRINT " ~ 121 - T to» Starfleet | Connie for AY combat. training 


"ü Uem ‘LOCATE 22, ux [IR WLeg THEN 959] |... AMA, AAT 


D | 9678 DATA 12114, 12; "m 43; 1, 6l, 5,19,3, 32 "m ,58,3,65,12, 15,15, 9, jia 47 


š 


< 


72 


à Ë 1 t TE 
ae si "4*1 i 
' nt ih 111 


578 PRINT viite um ue ma t iae deve luni inen "nu $ M : i i 


| 963g yt: Asia dw 

ib GOTO. 369g. ` 0t 

- 9656 REM » nies 

| 19668 DATA. 19, 19,6, 32,6, 52:8, 691 s 46, i 337, 15 ,48 512,64, 6, 18,3, 27 5) 46, 6,61 


| 9689. DATA 14,66, 314, 6,32, 1152,9 61112,1912, 27,1545, 17 6916,13, 1,46 | MU 
9690 DATA 6 ,69,16,33, 112, 52412579, 9,18, 9, 143, 4,71, Ws 27118 ,54,15,62, 9,14,9,48 

1 9799 DATA 6,64, 17,95; 12, 45,15] 64,7 129,3; 35,6 ,45,6,66,18. (15,13; 37, ΠΗ ΗΑ 

| 19718 DATA 13,69,6,15,ω, 5g, δὲ 61, 15,36,18, /43 , 140, 61, 3, 11, 8 i, P132, 15 ,57,13 |i 

. 9729 DATA 3,18,7,67,15] 127, 18,51, 16, 66 ,6,29 7, 45,3, ἐδ 2,34 16,49, 13᾽65,6,11. 

9136 DATA 9,54, 7,66,15,34,12, 43,13, 61,9,16,9, 32,551, 9, 70,16 /27,12,47 16, 61. 

- 9749: DATA. 9,26,8, 55, 3,63,18,37,18, 45,18; 79,3116, 8 49, 5,71, 14,15,14 1,12,54 - 1 
9759 DATA 18, 61,9,12,7, 32, 4, 47,6, 62, 15,31, 16 43112, 71, 16,17,7,44,3,78,12,29 (111011. 
| 976 DATA 15, 43,17,68,9,19,3,29,3,37,8,68, 12,1815, 37,18, 33,18 ,71, 3,15, 2255111! 

- 9778 DATA 6,71, 17,15, 12, 36,12, 51,3,1φ,17, 43,9, ,11,3,33,7, 49, 6,67, 13,20, 12.94 

| 9789 DATA 13,43; 16,61,6,14,8,32,3 ,66,12,17,12,48,3,12,3,67,12,33,18,48,9,15 . 

. 9799: DATA. 6,6: 115, 35,12,59,6,19,6,78,12, 32,18 46,6, 16, 5,61, 13, 21,18, 52,9,13: 

| 198g DATA 3,36, 6,68, 12, 11,17,27; 15,47, 3,29, 15,27 18, 59,6, 19,3, 28,6, 64,12, T 

. 9818. ‘DATA 15, 33, ,12,46,15,61,6,12,3 11/53, 4,61,12,31,15, 39.5, 13, 3169,9, 17 M 11 

| 9820 DATA 9, 32, 7,58;3,64,12,16,12,35,15,55,14,67,9,17,5,32,7,61,15,15,12,28. ' | 

' 983d. DATA 18 44, 4 119,9 ,71,13,15, 15, 28,12,53,3,19, 2147, 3,62, 18,36; 112, ^ 8 tH 

de DATA, 3134) 8 Halat a2, i 39.15, 8, 16, 32 2,42, 1 16 a 6, 65 53 iHi 

985g END | ! At f i 1 


.. 


CREATE 
YOUR OWN 
BANNERS, LOGOS, 
GRAPHS, CHARTS, 
AND MORE! 


OPT? T Load Gave Print 3 


AN LNTERACTIVE GRAPHICS ΕΠΕ TOR 
soy Pe... T RHE- MODE Ls 100 24K 


FEATURES : To order call: 1-800-835-2246 ext.298 
e SER ERTENDEY "ONE $q G G 6 In Kansas 1-800-362-2421 ext.298 
ὋΝ SCREEN MENU ""STRETCHABLE RECTANGLE e VIUA ολ Qe LEE 

* CURSOR CONTROL * STRETCHABLE SEGMENTS 

* SAVEABLE DISPLAY  "*CIRCLE OPTIONS 


"SPRINT OPTION “ANGLE LOCKS LONESTAR SOFTWARE: 
* TEXT EDITOR “FILL PATTERNS 


= FAST MACHINE CODE "*CONSTANT X,Y READOUT & IC DESIGN CO. HOUSTON, TEXAS 


**Coming soon for the MODEL 200! 
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ΠΠ Feature 


he metric system is showing 
up in more places these days 
— the grocery store, the gas 
station, lumber yard and in 
my children’s homework! 

Accurate measurements are easier to 
make in base 10 (the base number for 
our monetary system and the metric 
system) and dividing things up is 
simpler. It is much easier to find the 
center of a 120 cm board than the center 
of a 3-foot 117/5-inch board! I use 
metric measurements for all of my 
woodwork and gardening projects with 
a substantial reduction in measurement 
errors. The problem was that the local 
supply houses sell materials in board 
feet and ounces instead of meters and 
liters! You guessed it — I moved my 
Tandy 1000 and my copy of Turbo 
PASCAL a little closer to my shop! 

The Metric Calculator supports 36 
metric-to-English and English-to- 
metric conversions in six categories. 
The entire program is menu driven and 
selections are made with one keystroke. 
Once a specific conversion is selected, it 
can be repeated over and over until the 
letter X is entered instead of a value. 
Pressing the ESC key at any menu re- 
turns to the main menu and will abort 
the program from the main menu. 

Printed results can be supported by 
adding this line in the Main Program 
segment (see documentation in the 
program listing): 


Writeln(lst.* 
* ,Uservar:5:5,DrigId,' = 
* ,Rnsuer:5:5,ConId); 


Note the operation values (OpVRL) 
for the temperature conversions are 
actually flags that trigger the use of 
specific formulas. All of the other 
OpVals are used as a factor in a simple 
multiplication formula (see the DoThe 
Calculation procedure). The value 
assigned to the While.. . do statement 
in the main program segment can never 
be entered by the user, this forces the 





Bob Mills is a Master Sergeant in the 
United States Air Force working at 
Walter Reed Army Medical Center, 
Washington, D.C. He has written nu- 
merous programs for his USAF duty 
sections and is the president of MS- 
AGES, a Frederick, Maryland user’s 
group. 


Metric: 


1000/ 1200/ 2000/ 3000 





Calculator 


^ à κ 
.Ἶ. NWS 
May SS 


gg 


X 


ss 


loop to continue until the user enters the 
letter X instead of a value. The program 
listing is complete, no special include 
files or compiler directives are required. 

The remarks in braces are for clarity 
only, you don't need to type them in for 





By Bob Mills 


S SS 
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“ a 


WN 


m 
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SS 
je 
AS 


ES 
D 


p 


the program to run. | 

If you have any questions, drop me | 
a line at 300 Heather Ridge Drive, 
Frederick, MD 21701. The program is 
also on this month's PCM ON DISK. My 
handle on Delphi is BOBMILLS. O 
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The listing: 
( 
METRIC CALCULATOR 
By: Bob Mills 
Copyright 1986 


yoleieieicieieicicieieieieicieieieieicieiekeieteicieiedelekeiejeieiekieteteiekese ) 


program MetricCalculator; 


οσο DEFINE GLOBAL VARIABLES 


type 
Titles-string[49]; 


var 

Choice,ch:char; 

OpVal, Answer, UserVar:real; 
ColorFlag:boolean; 


OrigId, ConId, TitleId:Titles; 


CalcCode,x,y:integer; 
UserString: string[29]; 


label PopToHere; 


{ Set up for Color or Black and White Monitors } 
procedure ColorYesNo(var ColorFlag: boolean) ; 


begin 
ClrScr; 
TextMode (bw49) ; 
gotoXY(1,12); 


Writeln('Are You Using A Color Monitor Y or N ?'); 


repeat 
read(kbd,ch); 
ch:-UpCase(ch) ; 
until ch in PY Nes 
Case ch of 
'Y' : begin 
ColorFlag:-true; 


TextMode(c89);TextColor(15);TextBackground(1); 


end; 


'N' ; begin 


ColorFlag:=false 


end; 
end; (Case) 
end; {Procedure ColorYesNo} 


iae OS SRM WwW 
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; (Light Gray on Black) 
TextMode(bw89);TextColor(7);TextBackground(9); 
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Discover a Whole New World 
of TV Entertainment! 


User Installable! Over 100 Channels! 
Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


U.L. 
Approved 














Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can't get from local TV, cable, and 
even video tape! You'll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage—and the best part is, there are no monthly 
fees to pay. You'll see exciting family-oriented pro- 


m Totally Automatic System With 81 -Ft. 
Dish, Receiver and Wireless Remote Control 


m Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 


m Descrambler Ready 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 








τρρ------ ὁ 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


(817) 825-4027 


NOCONA ELECTRONICS 


UPS Shipping 


Box593 * 


Nocona, TX 76255 





procedure NormColor; ( Return to normal colors ) 

begin 
if ColorFlag THEN begin 
TextBackground(1);TextColor(15); ( Bright White on Blue ) 
end else begin 
TextBackground(g);TextColor(7); ( Light gray on Black ) 
end; 

end; ( procedure } 


procedure HighColor; ( Set colors for highlights ) 
begin 
if ColorFlag then begin 


TextBackground(4);TextColor(15); ( Bright White on Red ) 
end else begin 
TextBackground(g);TextColor(15); ( Bright White on Black } 
end; 
end; { procedure } 


procedure RevColor; ( Set colors for Reverse Video ) 

begin 
if ColorFlag then begin 
TextBackground(15);TextColor(1); ( Blue on Bright White ) 
end else begin 
TextBackground(15);TextColor(9); ( Black on Bright White ) 
end; 

end; ( procedure ) 


( Wait for a key to be pressed and then proceed ) 
procedure TapAKey; 


begin 
ch:-chr(1); (set ch to nonkeyboard character) 
repeat; 
read(kbd,ch); 
until ch «» chr(1); 
end; ( TapAKey ) 


( Abort program execution ) 
procedure Stop; 
begin 
clrSer; 
TextMode(bw89); 
gotoXY(1,12); 
Writeln('Program execution has been aborted.'); 
Writeln('Thank You for using the Metric Calculator ! Bob Mills. 
Halt; 
end; ( Stop procedure ) 


procedure TitleScreen; 

begin 
ClrScr; 
gotoXY(28,3);HighColor; 
write ( 'Jeeeleileleleeleideelek! ) :cotoXY(28,4) ; 
write(' METRIC CONVERSIONS ');gotoXY(28,5); 
write ('Yo/eteieleictefedeteiedeteretetedese t );NormColor; 


gotoXY(39,7);write('Version 1.99.99'); 
gotoXY(36,19) ;write('By:'); 
gotoXY(33,12) ;write('Bob Mills'); 
gotoXY(26,15);write('39U Heather Ridge Drive'); 
gotoXY(28,16);write('Frederick, MD 217011); 
gotoXY(32,17) ;write('391-695-5228'); 
gotoXY(21,21);write(' <<< ywicFiryicicicicicicie- - + -ie >>> !); 
gotoXY(3,24);RevColor;write('Press any key ->');NormColor; 
TapAKey; 

end; (of procedure) 


( MENU FOR LENGTH CALCULATIONS ) 
procedure LengthCalc(var CalcCode:integer;var ch:char); 
begin 
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ch:=chr(1);TitleId:=' LENGTH '; 
clrscr; HighColor; 
gotoXY(5,1);write(' <<< LENGTH CONVERSIONS: >>> '); NormColor; 
gotoXY(29,6);write(' A = CENTIMETERS to INCHES'); 
gotoXY(29,8);write(' B = INCHES to CENTIMETERS’) ; 
gotoXY(29,19%);write(' C = METERS to FEET'); 
gotoXY(29,12);write(' D = FEET to METERS'); 
gotoXY(29,14);write(' E YARDS to METERS'); 
gotoXY(29,16);write(' F METERS to YARDS'); 
gotoXY(29,18);write(' G = KILOMETERS to MILES'); 
gotoXY(29,29);write(' H = MILES to KILOMETERS’) ; 
repeat 
gotoXY(19,23) ;RevColor; 
write(' --> Which conversion would you like to do ? '); 
NormColor; 
read(kbd,ch); ch := UpCase(ch); 
until ch in ['A'..'H',CHR(27) ]; 
Case ch of 
'A' : CalcCode:-1; 
'B' : CalcCode:=2; 
'C' : CalcCode:=3; 
'D' : CalcCode:=4; 
'E' : CalcCode:=5; 
ΤΕΙ : CalcCode:=6; 
'G' : CalcCode:=7; 
ΤΗ) : CalcCode:-8; 
end ( of Case ); 
end; ( of procedure ) 


( MENU FOR AREA CALCULATIONS ) 
procedure AreaCalc(var CalcCode:integer;var ch:char); 
begin 
ch:=chr(1);TitleId:=' AREA '; 
clrscr; HighColor; 
gotoXY(5,1);write(' <<< AREA CONVERSIONS: >>> '); NormColor; 


gotoXY(17,6);write(' A = SQ. CENTIMETERS to SQ. INCHES'); 
gotoXY(17,8);write(' B = SQ. INCHES to SQ. CENTIMETERS'); 
gotoXY(17,19);write(' C = SQ. METERS to SQ. FEET'); 
gotoXY(17,12);write(' D = SQ. FEET to SQ. METERS'); 
gotoXY(17,14);write(' E SQ. METERS to SQ. YARDS'); 
gotoXY(17,16);write(' F SQ. YARDS to SQ. METERS'); 
gotoXY(17,18);write(' G SQ. KILOMETERS to SQ. MILES'); 
gotoXY(17,29);write(' H = SQ. MILES to SQ. KILOMETERS'); 
repeat 
gotoXY(19,23) ;RevColor; 
write(' --> Which conversion would you like to do ? '); 
NormColor; 
read(kbd,ch); ch := UpCase(ch); 
until ch in ['A'..'H',CHR(27) J; 
Case ch of 
'A' : CalcCode:-9; 
'B' : CalcCode:=19; 
'G' : CalcCode:=11; 
'D' : CalcCode:=12; 
ΤΕ) : CalcCode:=13; 
'F' : CalcCode:=14; 
'G' : CalcCode:=15; 
'H' : CalcCode:=16; 
end ( of Case ); 
end; ( of procedure ) 


( MENU FOR VOLUME CALCULATIONS ) 

procedure VolumeCalc(var CalcCode:integer;var ch:char); 
begin 
ch:=chr(1);TitleId:=' VOLUME '; 
clrscr; HighColor; 
gotoXY(5,1);write(' <<< VOLUME CONVERSIONS: >>> '); NormColor; 
gotoXY(17,6);write(' A = CU. CENTIMETERS to CU. INCHES"); 
£otoXY(17,8);write(' B = CU. INCHES to CU. CENTIMETERS'); 
gotoXY(17,19);write(' C = CU. METERS to CU. FEET'); 
gotoXY(17,12);write(' D = CU. FEET to CU. METERS'); 
gotoXY(17,14);write(' E = CU. METERS to CU. YARDS'); 
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gotoXY(17,16);write(' F = CU. YARDS to CU. METERS'); 
repeat 
gotoXY(19,23) ;RevColor; 
write(' --> Which conversion would you like to do ? '); 
NormColor; 
read(kbd,ch); ch := UpCase(ch); 
until ch in ['A'..'F',CHR(27) 1]; 
Case ch of 
'A' : CalcCode:=17; 
'B' : CalcCode:=18; 
'C' : CalcCode:=19; 
'D' : CalcCode:-29; 
ΤΕ) : CalcCode:=21; 
"τι CalcCode:=22; 
end ( of Case ); 
end; ( of procedure ) 


( MENU FOR CAPACITY CALCULATIONS ) 
procedure CapacityCalc(var CalcCode:integer;var ch:char); 
begin 
ch:=chr(1);TitleId:=' CAPACITY '; 
clrscr; HíghColor; 
gotoXY(5,1);write(' <<< CAPACITY CONVERSIONS: >>> '); NormColor; 
gotoXY(17,6);write(' A = MILLILITERS to OUNCES [U.S. Liquid]'); 
gotoXY(17,8);write(' B = OUNCES [U.S. Liquid] to MILLILITERS'); 
gotoXY(17,19);write(' C = LITERS to QUARTS [U.S. Liquid]'); 
gotoXY(17,12);write(' D = QUARTS [U.S. Liquid] to LITERS’); 
gotoXY(17,14);write(' E = LITERS to GALLONS [U.S. Liquid]'); 
gotoXY(17,16);write(' F = GALLONS [U.S. Liquid] to LITERS'); 
repeat 
gotoXY(1g,23);RevColor; 
write(' --» Which conversion would you like to do ? '); 
NormColor; 
read(kbd,ch); ch := UpCase(ch); 
until ch in ['A'..'P',CHR(27) 1: 
Case ch of 
'A' : CalcCode:=23; 
'B' : CalcCode:=24; 
'C' : CalcCode:=25; 
'D' : CalcCode:=26; 
'E' : CalcCode:=27; 
"y CalcCode:=28; 
end of Case ); 
end; ( of procedure ) 


( MENU FOR MASS CALCULATIONS ) 
procedure MassCalc(var CalcCode:integer;var ch:char); 
begin 
ch:-chr(1l);TitleId:-' MASS '; 
clrscr; HighColor; 
gotoXY(5,1);write(' <<< MASS CONVERSIONS: >>> '); NormColor; 
gotoXY(17,6);write(' A = GRAMS to OUNCES [Avoirdupois]'); 
gotoXY(17,8);write(' B = OUNCES [Avoirdupois] to GRAMS'); 
gotoXY(17,19);write(' C = GRAMS to OUNCES [Troy]'); 
gotoXY(17,12);write(' D = OUNCES [Troy] to GRAMS'); 
gotoXY(17,14);write(' E = KILOGRAMS to POUNDS [Avoirdupois]'); 
gotoXY(17,16);write(' F = POUNDS [Avoirdupois] to KILOGRAMS'); 
repeat 
gotoXY(19,23) ;RevColor; 
write(' --> Which conversion would you like to do ? '); 
NormColor; 
read(kbd,ch); ch := UpCase(ch); 
until ch in ['A'..'F',CHR(27) J; 
Case ch of 
ΤΑ! : CalcCode:=29; 
'B' : CalcCode:=39; 
'C' : CalcCode:=31; 
'D' : CalcCode:=32; 
'E' : CalcCode:233; 
VES CalcCode:=34; 
end ( of Case ); 
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end; ( of procedure ) 


( MENU FOR TEMPERATURE CALCULATIONS ) 
procedure TempCalc(var CalcCode:integer;var ch:char); 
begin 
ch:-chr(1);TitleId:-' TEMPERATURE '; 
clrscr; HighColor; 
gotoXY(5,1);write(' <<< TEMPERATURE CONVERSIONS: >>> '); NormColor; 
gotoXY(17,12);write(' A = CENTIGRADE to FAHRENHEIT’); 
gotoXY(17,14);write(' B = FAHRENHEIT to CENTIGRADE'); 
repeat 
gotoXY(19,23) ;RevColor; 
write(' --> Which conversion would you like to do ? '); 
NormColor; 
read(kbd,ch); ch :- UpCase(ch); 
until ch in ['A','B',CHR(27) ]; 
Case ch of 
ΤΑ’ : CalcCode:=35; 
'B' : CalcCode:=36; 
end ( of Case ); 
end; ( of procedure ) 


( GET STRINGS AND VALUES FOR SELECTED OPERATION ) 
procedure GetParams(var OrigId, ConId:Titles; 
var OpVal : Real); 
begin 
Case CalcCode of 
1 : begin 
OrigId:-' Centimeters '; 
ConId:-' Inches ';OpVal:29.394;end; 
: begin 
OrigId:-' Inches '; 
ConId:=' Centimeters ';OpVal:=2.54;end; 
: begin 
OrigId:-' Meters '; 
ConId:=' Feet ';OpVal:=3.2898;end; 
: begin 
OrigId:-' Feet '; 
ConId:=' Meters ';OpVal:=9.395;end; 
: begin 
OrigId:-' Meters '; 
ConId:-' Yards ';OpVal:- 1.9936;end; 
: begin 
OrigId:-' Yards '; 
ConId:-' Meters ';OpVal:-.9144;end; 
: begin 
OrigId:-' Kilometers '; 
ConId:=' Miles ';OpVal:=%.62137;end; 
: begin 
OrigId:=' Miles '; 
ConId:-' Kilometers ';OpVal:=1.69935;end; 
: begin 
OrigId:=' Sq. Centimeters '; 
ConId:-' Sq. Inches ';OpVal:-.155g;end; 
: begin 
OrigId;-' Sq. Inches '; 
ConId:=' Sq. Centimeters ';OpVal:-6.452;end; 
: begin 
OrigId:=' Sq. Meters '; 
ConId:=' Sq. Feet ';OpVal:=19.764;end; 
: begin 
OrigId:=' Sq. Feet '; 
ConId:=' Sq. Meters ';OpVal:=9.99299;end; 
: begin 
OrigId:=' Sq. Meters '; 
ConId:=' Sq. Yards ';OpVal:=1.1969;end; 
: begin 
OrígId:-' Sq. Yards '; 
ConId:=' Sq. Meters ';OpVal:=9.8361;end; 
: begin 
OrigId:=' Sq. Kilometers '; 
ConId:=' Sq. Miles ';OpVal:-9.3861;end; 
: begin 
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- Megabytes for Mini-Bucks 
. Tandy 1000 Hard Drives 
by Hard Drive Specialist 





Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak" 
multifunction card, or a Tandy Board, Part 225-1004. 


Ordering Information 

Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


Hs Disk System Features: 


10 
20 
42 
10 
20 
42 


All sizes rated after formatting. 
One secondary drive may be added. 


Error checking and correcting controller. 


Software drivers included. 


Buffered seek drives for improved access time. 


Built in power up diagnostics. 
Plated media for long disk life. 
Gold connectors used throughout. 
1 year warranty. 

Boots directly from Hard Drive. 
Uses Tandy 1000 MS DOS. 


Megabyte Internal................ 
Megabyte Internal................ 
Megabyte Internal................ 
Megabyte External............... 
Megabyte External............... 
Megabyte External............... 


Hard Drive Specialist 


16208 Hickory Knoll 
Houston, Texas 77059 
1-713-480-6000 


Order Line 
1-800-231-6671 


‘expansion beyond the scope of the standard 
; ven of the most needed functions! 


on as the Model 1000 . 
lete compatibility 





OrigId:-' Sq. Miles '; 
ConId:-' Sq. Kilometers ';0pVal:-2.599;end; 
: begin 
OrigId:-' Cu. Centimeters '; 
ConId:-' Cu. Inches ';0pVal:=9.9619;end; 
: begin 
OrigId:-' Cu. Inches '; 
ConId:-' Cu. Centimeters ';0pVal:-16.3872;end; 
: begin 
OrigId: Cu. Meters '; 
ConId:-' Cu. Feet ';0pVal:=35.314;end; 
: begin 
OrigId: Cu. Feet '; 
ConId:-' Cu. Meters ';0pVal:-9.02832;end; 
: begin 
OrigId:-' Cu. Meters '; 
ConId:-' Cu. Yards ';OpVal:-1.3979;end; 
: begin 
OrigId:-' Cu. Yards '; 
ConId:-' Cu. Meters ';OpVal:-9.7646;end; 
: begin 
OrigId:-' Milliliters '; 
ConId:-' Ounces [U.S. Liquid] ';OpVal:-9.03382;end; 
24 : begin 
OrigId:=' Ounces [U.S. Liquid] '; 
ConId:=' Milliliters ';0pVal:-29.573;end; 
25 : begin 
OrigId:-' Liters '; 
ConId:-' Quarts [U.S. Liquid] ';OpVal:-1.95671;end; 
26 : begin 
OrigId:-' Quarts [U.S. Liquid] '; 
ConId:=' Liters ';OpVal:-8.94633;end; 
27 : begin 
OrigId:=' Liters '; 
ConId:=' Gallons [U.S. Liquid] ';OpVal:=9.26418; end; 
28 : begin 
OrigId:-' Gallons [U.S. Liquid] '; 
ConId:=' Liters ';0pVal:-23.78533;end; 
29 : begin 
OrigId:=' Grams '; 
ConId:=' Ounces [Avoirdupois] ';OpVal:-9.93527;end; 
36 : begin 
OrigId:=' Ounces [Avoirdupois] '; 
ConId:=' Grams ';OpVal:-28.3495;end; 
31 : begin 
OrigId:=' Grams '; 
ConId:=' Ounces [Troy] ';OpVal:=9.93215;end; 
32 : begin 
OrigId:-' Ounces [Troy] '; 
ConId:=' Grams ';0pVal:-31.19348;end; 
33 : begin 
OrigId:-' Kilograms '; 
ConId:-' Pounds [Avoirdupois] ';0pVal:=2.29462;end; 
34 : begin 
OrigId:=' Pounds [Avoirdupois] '; 
ConId:-' Kilograms ';0pVal:=9.45359;end; 
35 : begin 
OrigId:-' Degrees Centigrade '; 
ConId:=' Degrees Fahrenheit ';OpVal:-1111.9;end; 
36 : begin 
OrigId:-' Degrees Fahrenheit '; 
ConId:=' Degrees Centigrade ';0pVal:-2222.9;end; 
end (of Case); 
end; (of Procedure) 


( MAIN SELECTION MENU ) 
procedure MainMenu(var Choice:char;var TitleId:Titles); 


begin 

ch:=chr(1); 

clrscr; HighColor; 

gotoXY(25,3);write(' <<< MAIN CONVERSIONS MENU: >>> '); NormColor; 
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gotoXY(39,6);write(' A = LENGTH '); 
gotoXY(39,8);write(' B = AREA '); 
gotoXY(39,1%);write(' C = VOLUME '); 
gotoXY(39,12);write(' D = CAPACITY '); 
gotoXY(39,14);write(' E = MASS '); 
gotoXY(39,16);write(' F = TEMPERATURE '); 
gotoXY(2,21);write('Press [ESC] at any menu to abort !'); 
repeat 

gotoXY(19g,23);RevColor; 

write(' --> Which Menu do you want to see ? '); 

NormColor; 

read(kbd,ch); ch := UpCase(ch); 

üntil cH 4n ['A*o.*E'!.0HR(275 ]5 
if ch = chr(27) then Stop else Choice:=ch; 


end; ( of procedure ) 


( CALCULATIONS ARE PERFORMED HERE ) 
procedure DoTheCalculation(var Answer:real); 
begin 
if OpVal-2222.9 then begin ( F to C CONVERSION ) 
Answer:=(5*(UserVar-32))/9; 
end else if OpVal=1111.9 then begin { C to F CONVERSION ) 
Answer:=((UserVar*9) /5)+32; 
end else begin 
Answer: =UserVar*0pVal; end; { ALL OTHER CONVERSIONS } 
end; 


(eee Main Program *eeeek) 
begin 
ColorYesNo(ColorFlag) ; 
TitleScreen; 
PopToHere: 
MainMenu(Choice,TitleId); 
Case Choice of 
'A' : LengthCalc(CalcCode,ch); 
'B' : AreaCalc(CalcCode,ch); 
'C' : VolumeCalc(CalcCode,ch); 
'D' : CapacityCalc(CalcCode,ch); 
'E' : MassCalc(CalcCode,ch); 
'F' : TempCalc(CalcCode,ch); 
end ( of Case ); 
if ch=chr(27) then goto PopToHere; 
GetParams(OrigId,ConId,OpVal); 
UserVar:=1;ch:=chr(1); 
ClrScr; 
HighColor;gotoXY(15,5);write(' <<< ',TitleId,' >>> '); 
NormColor; 
gotoXY(5,8);write('To exit this area enter the letter X .'); 
gotoXY(5,9);write('Valid values are -1999 thru 19999.'); 
gotoXY(19,12);HighColor; 
write(' Converting: ',OrigId,' to ',ConId,' ! ');NormColor; 
while UserVar-199ggl do begin ( LOOP CANNOT END USING THIS VALUE 
gotoXY(5,23);write(' How many ',OrigId,' to convert ? '); 
repeat 
gotoXY(5,24);ClrEol;HighColor;write("' 153 
gotoXY(13,24); 
readln(UserString);NormColor; 
if UserString -'X' then goto PopToHere 
else if UserString='x' then goto PopToHere 
else val(UserString,UserVar,x); 
until (UserVar >=-1999) and (UserVar<=19999) ; 


DoTheCalculation(Answer); 

gotoXY(1,15); write(' Result: '); 
gotoXY(19,16);ClrEol;write(Uservar:5:5,0rigId);gotoXY(29,17); 
( Printer support can be added here w } 

ClrEol; 

HighColor;write(' is equal to ',Answer:5:5,ConId);NormColor; 
end ( while..do ); 

end. ( Of source listing ) 
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ΠΕ Feature 







education language 


Flying through programs with the 
up-and-coming computer aided 


A Good PILOT for 


Lost Programmers 


By John McCormick 


ith the perennial pres- 
ence of BASIC on most 
small computers, 
many people try to 
force their programs 
to fit the mold of this language, whether 
it is a good fit or not. Many who know 
better do this, but I am more concerned 
with all those who are new to computers 
and perhaps don't realize there are other 
languages available at a reasonable 
cost. Even those who have become 
familiar enough with programming to 
know there are other languages, such as 
assembler or PASCAL, seldom know 


John McCormick is a free-lance writer 
and computer consultant who studied 
physics and math in college. He was 
formerly with Wang Labs where he 
worked with IBM mainframes. He has 
also written a number of product re- 
views for PCM and its sister publica- 
tion, THE RAINBOW. 
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about some of the other highly useful 
languages. 

I am always distressed in particular to 
see teachers attempting to create educa- 
tional programs in these other lan- 
guages. Perhaps part of the problem 
with BASIC is its simple sounding name. 
I think more people would be willing to 
tackle some of the other languages (with 
their sometimes strange-sounding 
names) if everyone called BASIC by its 
full name: Beginners' All-purpose Sym- 
bolic Instruction Code. 

If you think of BASIC in those terms, 
then a great language like PILOT (Pro- 
grammed Inquiry, Instruction or 
Teaching) might receive the attention it 
deserves from those who want to pre- 
pare question-and-answer sessions for 
use on their computer. 

I know BASIC or even PASCAL can be 
used to produce a program that will 
solicit responses to a series of questions, 
but you haven't lived until you've seen 
how easy this sort of program is to write 











in PILOT. Don't get me wrong; PASCAL 
is a great language and BASIC is prob- 
ably not as bad as many of its critics 
claim, but the reason there are literally 
hundreds of different languages is 
simple: each language is designed to do 
a different job and do it more easily than 
other languages. 

PILOT is designed specifically for 
teachers and for writing programs that 
work the way most teachers teach (or 
would like to have the time to teach) — 
through a dialog with students, giving 
hints where necessary. 

OK, so I have another language I 
want you to learn; it must be hard or 
people would be using it instead of 
BASIC, right? Wrong! PILOT is incredi- 
bly easy to use for writing simple pro- 
grams, unlike BASIC or other languages 
that require a fairly complete under- 
standing of complex commands and 
punctuation to write even simple code. 
Here is an example of a PILOT program: 

T: Is 2+2+2=5? (the command T: 





PN ο - 








causes text to be printed on the 

screen) 

R: gets a response from keyboard 

M: no (this tests for a match with 
the specified text no) 

TY:CORRECT !! (TY: displays the 
text if a match is made) 

TN:SORRY, THAT ISN'T CORRECT 
(TN: displays this text if the key- 
board response A: does not match 
the contents of M:, here no) 

That's it! This is a “runable” PILOT 
program, although you might want to 
add a few more questions to your 
session, it should give you the idea. 
Pretty simple, isn't it? Yet it asked a 
question (displayed it on the screen), 
waited for an answer and responded to 
the answer. How quickly could you 
write that program in BASIC? 

If you want to run a series of ques- 
tions past the student, all you need do 
is enter that series of : commands into 
a word processor file and use the word 
processor's COPY command to produce 





as long a program as you want. That's 
right! This language is so simple to use 
that you can extend Q&A sessions by 
just using your word processor's COPY 
function to produce more lines of code, 
then filling in the questions and re- 
sponses you want. What could be 
simpler? 

PILOT also provides an easy way to 
provide additional information depend- 
ent on the given answer. Remember, this 
language is designed for programmed 
learning and that is how programmed 
learning operates: first some text gives 
information, next a question is asked to 
test understanding, then additional help 
is given in the area where it is needed. 

How about writing information from 
a BASIC program that is longer than one 
screen full? How do you make the 
longer text easy to read using BASIC? 
Using PILOT’s FOOT: command, the 
program stops and prints a message at 
the bottom (foot) of the screen, such as 
Press RETURN to go on, then goes to 








1000/ 1200/ 2000/ 3000 


the next page when the RETURN button 
is depressed. That's all, just FOOT:, no 
INKEYS or anything else. The PILOT 
language provides all that, just as it 
provides all the strings needed for the 
matching and keyboard entry func- 
tions. 

PILOT also has other commands, such 
as PRUSE :, that make this sort of pro- 
gramming easier. For example, 
PRUSE:n causes the program to pause 
for *n' seconds, a very useful command. 
Switching to other topics dependent on 
answers and simple computation are 
other functions available to the PILOT 
programmer, along with commands to 
keep track of scores or correct answers 
to questions. 

PILOT is so much faster than BASIC for 
writing these question-and-answer 
types of programs that I write the code 
much faster than I can think up good 
questions, certainly something that 
doesn't happen with BASIC. I have no 
trouble turning out a 20- or 30- 
question-and-answer program in an 
hour or less. I am only slowed down by 
stopping to think up questions and most 
of the time is taken up typing in the text 
— the actual programming takes only 
a minute or two. 

So where do you find this miraculous 
language, and how much does it cost? 
One of the best inexpensive PILOT 
interpreters is available from Ellis 
Computing, complete with a good, 
easy-to-read instruction manual and 
several sample programs for $39.95. 
This package even includes a program 
that leads you through questions and 
answers while creating a PILOT program 
for you. 

If you use computers in training or 
teaching, I urge you to look into PILOT. 
This language is easier to learn than 
many educational programs I have 
used, and it offers the opportunity to 
write unlimited numbers of different 
programs for your own use. 

PILOT doesn't do everything, for 
instance, it can't be used to balance your 
checkbook or solve problems of any 
sort. The reason PILOT is easy to use and 
simple to learn is that it only performs 
certain functions. PILOT is not a general 
purpose language like BASIC or PASCAL, 
which can do almost anything (though 
they do almost nothing very easily), but 
if your work is the kind PILOT is de- 
signed to do, then you will bless the day 
you found it. 

(Ellis Computing's address is: 3917 
Noriega St., San Francisco, CA 
94122.) PCM) 
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ΠΠ Feature 100 


Machine language programming 
on your Portable 


Model 100 Machine 
Code Made Easy 


a BASIC interpreter is like the difference between 

night and day. Machine code executes much faster 
because each byte does not have to be interpreted by 
software into hardware terms. The primary drawback to 
using machine code is having to manually generate the 
numeric values for the code since most PCs only come 
equipped with BASIC. 

The first computer languages were called “assemblers.” 
The purpose of an assembler is to eliminate the work of 
generating numeric values representing machine code. The 
assembler input is a set of machine code mnemonics that 
mean more to the programmer than a series of ones and 
zeros. Through the use of labels, data and mnemonics, the 
programmer can generate a program that runs in direct code 
and performs a specific function. 

This article describes the 8085 assembler enclosed in 
Listing 2. This is a two-pass assembler written in BASIC for 
use on the TRS-80 Model 100. Because of the necessity to 
conserve memory and the I/O limitations of the Model 100, 
a quasi-dual pass assembly and only basic error-checking 
are the two characteristics of this program. 

Dual-pass assembly means each source statement is 
analyzed twice. This is a quasi-dual pass assembler because 
the first pass is only used to generate the label table and 
no intermediate code is generated. Consequently, the input 
code is actually assembled twice. This takes longer to run 
than a single-pass assembler but it allows forward referenc- 
ing during assembly. 

The mnemonic language used for the 8085 is the same 
as the 8080 with the addition of the SIM/RIM instructions. 
There are three different types of instructions that, for the 
purposes of this article, we will call Format I, II and III. 

Format I instructions are those defined in a single byte. 
An example of a Format I instruction is a PUSH B. This 
instruction is totally defined by the operation code C5 Hex. 
It means push the contents of the Register BC pair onto the 
stack. Another example of a Format I instruction is MOV 
A,B. This is represented by the Hex code 78. This is a one- 
byte instruction with two fields that contain operand data. 

In this case, bits 3 to 5 represent ‘A’ (seven) and bits 0 


T: execution speed of machine code compared with 


Michael Henning is a systems analyst for Sperry 
Corporation. He has over 20 years of experience 
working with computers. 
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to 2 represent ‘B’ (zero). All Format I instructions are one 
byte and may or may not have operands associated with 
them. 

Format II instructions occupy two bytes. These use 
immediate operands. An example of a Format II instruction 
is MVI 8,1220. This instruction moves 177 octal to Register 
A. The second byte in the Format II instructions is always 
the immediate operand. 

The final class of instruction is the Format III. In like 
manner, Format III uses three bytes. These are the direct 
instructions of load/store and program branching instruc- 
tions, jumps/calls. An example of a Format III instruction 
is CALL FF@@H. Its execution causes the program to call the 
routine at FF@@ hexadecimal and put the current program 
counter on the stack. 

The instruction repertoire is available in many different 
places. Books on the 8085 and machine language program- 
ming are available and very helpful. Table 1 gives a list of 
instruction mnemonics and the operands expected by the 
assembler. 

The input to this assembler program is somewhat free 
form. Labels must begin in Column |. All operators must 
be separated by at least one space, a comma, a tab, or a 
plus or minus sign. Comments may be added to the input 
line following a period and, for the sake of attractive output, 
should be limited to 20 characters. The following is an 
example of an input line. 


1 2 3 4 
123456789612345678961 2945678961 2345678906 
LABEL JMP ΙΑΒΕΙΗ19φ . EXAMPLE 


The only restriction on a label is that it cannot be named 
REM and cannot end with a ‘B’, ‘D’, ‘H’ or ‘O’. REM is 
used to denote a remark and causes all data up to the next 
carriage return to be printed out. No attempt is made to 
find any valid statements in a remark. REM must begin in 
Column | just like a label. The endings ‘B’, ‘D’, *H' and 'O' 
are reserved for numeric operands. 

The program allows any size label but the output only 
uses a maximum of eight characters. My personal prefer- 
ence for labels is no more than seven characters; that way 
I can use tabs to separate labels and mnemonics. Another 
restriction of labels is that only 256 are allowed. This is to 
save memory and can be expanded by changing the program 


at lines 5, 40 and 1350. Labels are optional on all statements 
with the exception of EQU, which requires a label. 

Two arithmetic operators are allowed on operands. Any 
label or numeric operand can be modified with a plus or 
minus sign and a decimal number. Therefore, in the example 
line, the jump would be to the address of LABEL «19 decimal. 

Numeric operands must designate whether they are 
binary, octal, decimal or hexadecimal. These different 
number bases are shown by ‘B’, ‘O’, ‘D’ or ‘H’, respectively, 
in the last digit of the field. Therefore, 1770 represents 177 
octal. If the number base is left off, the assembler treats the 
number as a label. The exception to this rule is arithmetic 
modification, described in the previous paragraph, which 
is always a decimal number and cannot have a number base 
identifier. 

In addition to numeric values, the ‘$’ signifies the current 
contents of the address counter. If an operand such as $+2 
is used, the generation is the current address of the 
instruction being assembled plus two. 

In addition to the full 8085 mnemonic table, the assembler 
uses the following special mnemonics: 
€ ENTRY — This is used to note the entry point of the 

program. The format is [label] ENTRY [numeric 

value]. It has no significance for the program and serves 
only as a programmer reminder. 
€ DATA — This mnemonic is used to designate input data. 

The format is [ label ] DATA [operand]. The generation 

for the data statement is either one or two bytes. If the 

operand, which can be a numeric expression or label, is 
in the range 0-255, one byte is allocated. If the value is 

256-65,535, then two bytes are allocated. 
€ EQU — EQU allows the programmer to equate a value to 
a label. The format is [label] EQU [operand]. The 
operand can be a numeric expression or a label. The EQU 
operator must have a label. 

ORG — ORG allows the programmer to set up the address 
counter. ORG is normally the first mnemonic encountered 
and contains the start address of the assembly in the 
format, [label] ORG [numeric value]. In addition, 
ORGs can be placed anywhere the address counter needs 
to be changed. 

RES — RES is used to reserve a number of bytes of data. 
The format is [label] RES [number of bytes]. This 
instruction increments the address counter to reserve a 
specified number of bytes for dynamic storage. 

€ STR — This operator allows the programmer to enter 

ASCII string data. The format is [1abel] STR 

[xxxxxxxx], where xxxxxxxx is string data. 
€ END — This is the final statement in the assembly. The 

format is [1abel] END. The label is optional but the 

statement must be included or a fatal assembly error 
occurs. 





The program contains a limited amount of error check- 
ing, and the following errors may appear on the output 
listing: 
€ “|: (Instruction error) — This occurs when a mnemonic 

is not recognized or there are improper fields in the 

statement. 

€ *U* (Undefined error) — This error occurs when a label 
used as an operand cannot be found in the label table. 

è *D* (Duplicate definition) — This occurs when a label 
being used has been previously defined. 

@ *W* (Warning) — Occurs when the data in an operand 
overflows the maximum possible value. 

In addition, the assembler gets a fatal error if there are 
operands it does not understand. The assembly stops and 
all files are closed. As previously mentioned, if there is no 
END statement in the program, a fatal error also occurs. 

The program allows the programmer to specify the name 
and device for the input file and the print file. The operator 
also specifies whether an object file is desired. The object 
file is a text file that contains hexadecimal addresses and 
generated code data. 

The program in Listing | loads the object file into 
memory. The loader program sets HIMEM to the first address 
encountered in the object file and loads the program into 
memory. At completion, the first and last addresses and the 
number of bytes are displayed. The loader program requires 
no operator intervention. 

The printed output of the program is set up for an Epson 
RX-80. The format is in 80 columns and includes headers. 
If this needs to be changed for your printer, the control 
codes are contained in lines 1520 and 1600. 

My objective in writing this program was to provide a 
versatile assembler that could use all of the capabilities of 
the Model 100 and not use all of its memory. Because the 
device for the files can be designated, larger input files can 
be read from tape (the file should be on tape twice, once 
for each pass). The output can be directed to the printer, 
and leftover memory can be used for the object file and an 
expanded label table. 

For those who have access to CompuServe, the following 
files are in the XA4 database of the Model 100 Users Group 


(PCS-154): 
ASM.BA Assembler program 
LDASM.BA [Loader program 
ASM.DOC Assembler documentation 


ASMEX.TXT Sample assembly 

Table 2 is a sample input file for an assemble and Table 
3 is the assemble output. 

If you have any questions concerning this program you 
may contact Mr. Henning at P.O. Box 2155, Arlington, VA 
22202, phone (703) 548-2989. Please enclose an SASE when 
writing. B 
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Wondering where to grow? 


Why not get IBM compatibility with 
Tandy's 1200, or the new 3000, and 
take your OS-9 programs with you? 


TLM's PC68K puts the 68000/68010 
processor and Microware's OS-9 
together in any IBM, or compatible, 
PC/XT/ AT system, providing the 
best of both worlds with fully 
concurrent PC/68000 operation. 


e Powerful languages such as 
BASICO9, PASCAL and C 

e DYNACALC for spread sheet 
processing 

e The power of the 68000/68010 
e The price/performance and 
flexibility of the Tandy 1200 
and 3000 

TLM's PC68K. . .A great family 
τα grow "m with! 


— tr € pea f Inter 
να ος le 


CPM [x isan istered rademark 
68000 MKI "e v eos esi red ! tr ης 
registered tr adem rk οἱ | ATAT 





CLOCK SPEED 
8/10/12.5 MHZ 
Without wait states 


HARDWARE 

2 Parallel Ports 

3-9 Serial Ports 

68881 Floating point co-processor 
(optional) 

Memory mapped dual port bus for 
high speed DMA transfers 

Real time clock with battery 
backup 

Up to 16 boards can run con- 
currently from one AT/XT/PC bus 


MEMORY 

1-2 MB OF RAM 

(1 MB on board standard) 

8K-32K of ROM 

2K-8K of battery backed RAM 

MULTI-USER 

3-9 users (3 standard) 

High speed "Tick" timer with 10ms 
accuracy for efficient multi-user 
time slicing. 


TLM Systems 


West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711 209/276-2345 


OPERATING SYSTEMS 

OS-9 (Multi-user UNIX look-alike) 

C/PM-68K (popular single user OS) 

Both support concurrent access 
to PC DOS 


SOFTWARE 

Software selectable OS 
environment 

IBM Color/Mono Graphics Support 

Local and Global disk caching for 
maximum speed and efficient 
data transfer 

COMMUNICATIONS 

Powerful asynchronous/ 
synchronous data 
communications capability 

Bisynchronous SNA 3270, X.25, etc. 

MISCELLANEOUS FEATURES 

Remote and Local reset (hardware 
or software selectable) 

Remote and Local Non-maskable 
Interrupts (NMI) 

Stand alone hardware capability 
(without AT/XT/PC support) 


I East: 67 Grandview Avenue, Pleasantville, NY 10570 914/747-1450 
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13g GOSUB199g 1. FI ΤΕΛΕΤΗΣ 

14g .IFFlc""THENT-AC: UTPRATMT ELST EE 

145. IFFL-"REM"TRERGOTO325g 11 HB. 

15g GOSUBL459 

169 ONINT((XZ- ΜΕ 18g, 19g, 299, 219,226, 23d. 255; 24g. | 


179 'ONXZGOSUB2999 , 2936, 2972 ,2112,2112,2144,2144,2189,218],2196:G0T0119 ` 
"189 ONXZ-19G0SUB2298 ,2208,2224,2236,2248,2248,2264,2264,2264,2264 


19g ONXZ+29GOSUB2264, 2264, 2264,2264 2264, 2289, 2292,2292 22922292 
299 'ONXZ- 39GOSUB2292,2292 ,2292,2292,2292,2398, 2598 2308, 2398, 2398 


229) ONXZ -5960SUB2416 2416, 2416,2416 , 2416 , 2432, 2432, 2432 ,2432, 2432 
234 ONXZ-69GOSUB2432), 2432, 2432 2452, 2452, 2452, 2452,2452,2452,2452 
235 ONXZ-79GOSUB2452,.2464, 2464, 2476, 2476,2488 , 2599 ,2512, 2512, 2524 
249) ONXZ-B9GOSUB3192 , 3946 , 3966, 3909,3912,3999,3115,1662: οὐ1στιφ.' 
1999 Fls"": F2= τη :F32U"". F4="": F5="" :F6=""; X-l1:NS-g Í 

1916 IFEOF(1)THENCLOSE:GOTO329d 


` 1918 F=INPUTS(1,1) 


1919 IFX=2ANDF1="REM"THENX=6:NS=g 

1929 IFF-CHR$ (13) THENRETURN 

1921 IFF2="STR"ANDK=3ANDF->" , "THENIG56 | 
1922 IFF-CHR$(19)THEN1g16 


| 1924 IFNSAND(F=" *ORE-CHRS (y rum gd ΕΕ 


1942 IFF-'4"ORF-"-"THENX-5 


1028: NS-g 

1032 IFX=6THENF6=F6+F:GOTO1916 ` f x 
1936 IFF-" "ORF=","ORF=CHR$(9)THENX=X+1: NSe1: i 
1949 IFF-"."THENX46:GOTO1932 © j 
1944 ONXGOTO1948 ,1952,1956, 196g, Me 

1948 Fl-Fl«F:GOTO1916 

1952 F2-F24*F:GOTO1916 .. H 

1956 F3=F3+F :GOTO1916 ΓΗ τε 

196g. F4=F4+F;GOTO1g16 


‘1964 F5=F5+F:GOTOIp16 |. f HEEL LEG GR HH 


119g HCX)="" i 

1114 IFXL-2ANDT» 25 STHENE Lo pe" 

1116 Χ2-τ/16 

112g TAT-xX2*16 $i 
1124 TFT<ÍØTHENH(X)=CHR$(T+48)+H(X)ELSE HQO -CHR$ (1+55) +H CX) 


: 1128 IFX2»9THENT-X2:; GOTOl116 ` 


1132: 60908115 

1136 RETURN 

1159 LFLEN (H(X) )3 X ITRENRETURN 
1166 HCX)="9"+H(X) 

1179 GOTO1159° . 

1299 FORX2=9T07 

1216 IFH(4)=R1(X2)THENRETURN 
1229 NEXT: GOTO1248 

1224 FORK2=9T03 

1228 IFH(4)=R2 (X2)THENRETURN 
1232 NEXT:GOTO1248 

1236 FORK2=9T03 

1242. IFH(4)-R3(X2) TRENRETURN : 
1244 NEXT | 

1248 X2=-1 


' 325g El-"*I*" 


1252. RETURN 

126g T-g 

1276 FORK=1TOLEN(H(5)) 

1289 F=MID$(H(5) ,X,1) 
1284 IFASC(F)>47ANDASG (F)<58THENT1=ASC(F) - 48ELSET1=ASC(F) - -55: 
1288 T=T*T2+T1 

1292 NEXT. 

1294 IF 165535 THENE 1- "Mri" 

1296 RETURN i 

139g T2=9 ; 

1311 IFLEFTS(H(5), 1)-"$" THENT-AC4VAL(F5) : RETURN 

1312 IFRIGHT$(H(5),1)-"O"THENT2-8 . 

1316 IFRIGHT$(H(5),1)-"B"THENT2-2 © 


| 132g TFRIGHTS(H(5) | D'TRERT2-g. 
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:60T0119. ` 
:GOT011Z 

:GOTO011g 
219 ONXZ-49GOSUB2398 , 2398, 2308, 2398, 2324, ,2399,2399,2416,2416,2416: 


GOTO119g 


:COTO119: 
:560T011g | 
:GOTO11g 


LILILI 





[οἱ] f PLU TL s κ. 


LJLILILIL] 
LIST OUR 


COLOR COMPUTERS PRICE PRICE 


26-3127 64K Extended Color Computer 2 . $199.95 $169.00 
26-3134 16K Standard Color Computer 2 .. 119.95 99.00 
26-3131 Thinline Disk Drive 0 for Color Computer 299.95 240.00 





LD) 
BOO 









CALL 


























26-3018 Extended Basic Kit ............ 39.95 36.00 
26-3030 OS-9 With Editor Assembler ..... 69.95 59.50 1 -800-248-3823 

26-3012 Deluxe Jovstick ............... 29.95 25.00 m: = 
26-1208 CCR-81 Recorder ............. 59.95 5000 LIST OUR 
30001170 VIP Integrated Library ......... 149.95 139.00 RADIO SHACK PRINTERS PRICE PRICE 
Se MD AINT ages nh relie: ae ee 26-1276 DMP-105 Dot Matrix Printer ..... $ 199.00 $ 169.00 
ο ο ο ο ον d ioris Ero ME ee 26-1275 TRP-100 Portable Thermal Printer. 299.00 230.00 
SOS ο stir πα Ee de “we 26-1280 DMP-130 100 cps Triple Mode Printer 349.95 285.00 


30009110 Botek interface... cerr yee Ss νε. 26-1268 CGP-220 Color Ink-Jet Printer ... 699.00 595.00 












26-2830 PC-695 8-Color Digital Plotter .... 799.00 680.00 
ον M : 26-1277 DMP-430 24 Wire Matrix Printer .. 899.00 635.00 
iio κο νο la $2599.00 $1900.00 26-1270 DWP-510 43 cps Daisy Wheel ... 1495.00 1225.00 
rica ain; ο n m, on i na rn ο. 26-1274 DMP-2100P 24 Dot Matrix Printer. 1495.00 1195.00 






25-3046 Deluxe Text Display Adapter . .... 249.95 205.00 26-1279 DMP-2200 HiSpeed Matrix Printer. 1695.00 1440.00 
























































26-3047 Deluxe Graphics Display Adapter . 499.95 395.00 26-1269 PT-64 Printer Controller......... 249.95 210.00 
25-4030 512K to 2 Meg Expansion Board . 499.00 395.00 26-1498 SW-302 Printer Switch ......... 119.95 100.00 
25-4033 Math Co-Processor for 3000 ..... 399.95 339.00 26-1447 Bi-Directional Tractor for DWP 510 219.95 186.95 
25-4050 1.2 Meg Disk Drive Kit for 3000 .. 299.95 255.00 
25-4060 Hard Disk Controller Board for 3000 499.00 425.00 TANDY 1200, 2000 
πα ΕΜ εν Vere ited i VEMM eee 25-3000 Tandy 1200 One FD & 10 Meg HD .$1999.95 $1525.00 
Coh yea ο koi te EES o NI S, 25-3001 Tandy 1200 Two FD 256K ...... 1499.00 1200.00 
26-5111 VM-1 Monochrome Monitor ...... 199.95 165.00 kj ; 

Moni 9 1 25-3010 VM-3 Green Monitor ........... 219.95 185.00 
262112 CRT Color ΗΔΗ sie cSt opie 599:95 910.00 25-1022 CM-10 Color Monitor . .......... 459.95 380.00 
TANDY 100, 200, 600 eras ο. Decay Adapter ....... oe : = 

" raphics ΒΘ us dv ed ene Mise s š 
26-3901 Tandy 600 Port Comp 32K 3'2DD $1599.00 $1195.00 25-3061 Captain Multifunction Board ..... 599.95 475.00 
26-3904 Basic Rom for Tandy 600 ....... 129.95 110.00 25-3020 TCS-100 Tape Cartridge System . 1999.00 1555.00 
25-9910 SN FAM Upgrade forTandy 600, ος 25-3021 TCS-100 Interface Kit 1000/1200 . 149.95 120.00 
26-3860 Tandy 200 Port Comp νην. Εν. ὦ. 799.00 650.00 25-3130 MSDOSIBASIC. ................ 89.95 76.50 
26-3866 24K RAM Memory Exp Chipfor200 199.95 170.00 26-5103 Tandy 2000 Two Disk .......... 1599.00 1225.00 
26-3802 Tandy 100 Port Comp 24K ...... 499.00 425.00 26-5104 Tandy 2000 One Disk & 10 Meg HD 2499.00 1885.00 
26-3816 8K RAM Upgrade for Tandy 100.. 4995 4200 
26-3808 Port 32 Disk Drive for T100 T200. 19995 169.00 TANDY 1000 
-.. ο... da ici M oo 25-1000 Model 1000 128K 1 FD & DeskMate $ 999.95 $ 705.00 
QO ΑΝ ους VOUDICI .............. . . x 1 à 14 Ç 

M MUT ο WEE oia 25-1001 Model 1000 256K 1 FD 10MegHD 1999.00 1475.00 





25-1003 300-Baud Modem Board 1000/1200 149.95 125.00 















































26-1410 Modem Cable ................ 19.95 — 17.00 25-1005 Disk Drive Expansion 1000 ...... 199.95 170.00 
25-1006 RS-232C Interface 1000/1200 .... 99.95 85.00 
MODEL 4D 25-1013 1200-Baud Modem Board 1000/1200 299.95 230.00 
25-1025 10 Meg Hard Disk Drive ........ 699.95 559.00 
26-1070 Model 4D 64K 2 FD w/DeskMate .$1199.00 $895.00 25-1007 Hard Disk Control Board ........ 299.95 255.00 
26-1122 64K Memory Expansion ........ 69.95 65.00 25-1021 CM-4 Color Monitor ............ 299.95 225.00 
26-1123 Model 3 to Model 4 Upgrade Kit... 399.00 385.00 25-1022 CM-10 Color Monitor ........... 459.95 380.00 
26-1134 Model 4 HD Kit for 15 Meg ...... 79.95 67.95 26-3211 VM-2 Monochrome Monitor ..... . 149.95 125.00 
26-1530 Multiplan Model 4 ............. 199.00 169.00 30051030 PJB Multifunction Board 512K ......... 310.00 
26-1595 Super Scripsit Model 4 ......... 199.95 169.00 
26-1608 DeskMate for Model 4........... 195.00 175.00 EPSON PRINTERS 
26-1635 Profile 4 Model 4............... 249.95 200.00 : 
26-2216 CP/M Plus Model 4 ............ 149.00 127.00 20001015 Homewriter 10............... $288.00 $215.00 
26-2231 Double Duty Utility ............. 69.95 58.00 20001025 LX-80 Dot Matrix Printer ES 329.00 250.00 
20001035 FX-85 Dot Matrix Printer ....... 549.00 385.00 
20001050 HI-80 4 Pin Plotter ........... 599.00 390.00 
MODEL 6000 COMPUTERS 20002010 RX-100 Dot Matrix Printer ..... 499.00 400.00 
26-6021 Model 6000 512K 2 FD Comp ...$4499.00 $3125.00 20002030 FX-286 Dot Matrix Printer ...... 799.00 550.00 


26-6022 Model 6000 512K 1 FD 15 Meg HD . 5499.00 3795.00 20003020 LQ-800 24 Pin Head Dot Matrix . 799.00 565.00 










26-6052 DT-100 Data Terminal.......... 795.00 600.00 10081010 DX-10 Daisy Wheel Printer iles 299.00 255.00 
26-1245 10 Meg Disk Cartridge System ... 2195.00 1750.00 10081020 DX-20 Daisy Wheel Printer . .. . . 459.00 990.00 
26-6018 6000 Interface Kit for 26-1245.... 119.95 102.00 10081030 DX-95 Daisy Wheel Printer ... .. . ΚΘΗ 780-08) 
25-3022 1000/1200/3000/Interface Kit for 26-1245 199.95 160.00 

26-4155 15 Meg Hard Drive Primary...... 1595.00 1355.00 

26-4171 35 Meg Hard Drive Primary ...... 2995.00 2545.00 i i i i 
26-4173 70 Meg Hard Drive Primary |... 4295.00 3350.00 For Technical Questions and Information on our complete line of 






computer accessories and current prices: 


CALL 1-517-625-4161 


26-4157 Installation Kit for Primary HD .... 295.00 





All prices and offers may be changed or withdrawn without notice. Advertised 
pie aro cdd ica ‘a accepted ($10.00 charge per carton on C.O.D. FOR ORDERS ONLY CALL 1-800-248-3823 
all for further C.O.D. information.) M.C., Visa, add 2%. AX, add 3%. All non- H 
defective items returned will be subject to 10% restocking fee. Defective Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-5, Sat. 9-3 


items require return merchandise authorization. Call for R.M.A. Number 


before returning. Delivery is subject to product availability. Teu S. MAIN ST, PERRY, MIGH. n8872 
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G0T01799 
01-6 
H(4)2F3:GO0SUB129g 

GOSUB179g 

X=} : T=010R02: GOSUB11gg 

H(5)=F4:G0SUB13g8 

X«2:GOSUB119g 

G0TO1794. 

H(4)=F3 *GOSUB1224 

Ol=1 

GOSUB1799:02-02*2 

GOSUB180g 

H(5)2F4:GOSUB139g 

GOSUB1766 

RETURN 

Ol=2 

H(4)=F3:GOSUBL224 

ΤΕΧ2--1ΟΕΧ2»1ΤΗΕΝΟ2--φ; Ela" kD" ELSEO2=XK2¥16 
03=(XZ-4)*8 

GOSUBI89g 


.G0T01798 


IFXZ-6THENO1-59ELSEO1-58 
GOSUB180g 

GOSUB175g 

RETURN 
012434:02-(XZ-8)*8 
GOSUB189g 

G0SUB1759 RETURN 
01-235:GOSUB189g9 
GOTO1799 
01-2193:03-(XZ-11)*4:R(4)«F3:60SUB1236 

G0SUB179g:02-02*2 GOSUB189g 

G0T0179g 

01-227: 6905081809 

G0T01799 

01-249:GOSUB189p 

60701799 

01«3:03-(XZ-15)*8:H(4)7F3:G0SUB1224:G0SUB1 799 : 02-022 
GOSUB180g 

σοτο1790 | 

IFXZ=17THEÑO1=195ELSE01=194:02=(XZ-18)%8 

GOSUB1899.::GOSUBL75¢ 

RETURN 

01=233:G0SUB18p0 

GOT01790 

IFXZ=27THENO1=2g5ELSE01=196:02=(XZ-28)%8 

GOSUB18g9 

G0SUB1759 :RETURN 

IFXZ-36THENO1-291ELSEO1-192:02-(XZ-37)*8 

GOSUB1899 

60101799 

01-7199 :H(5)&F3«"u" : GOSUB- 1399: IF 1/8» 7TRENO2«g : Ele"*I*"ELSEO2-T 
GOSUB180g 

G0T01799 

0124 :03-X2-46 :H(4)=F3 : GOSUB1299 :02Χ2Λ8 

GOSUB189g 

G0TO1799 

012128:022 (X2-48)*8 *H(4)-F3:G08UB129g:032X2 

GOSUB18gg 

G0T01799 
01-198:02«(XZ-56)*8:GOSUB18gg 
H(5)-F3:GOSUB1399 
IFT>255THENEL= "Ayer 

GOTO2969 
01-7:02-(X2-64)*8 : GOSUBLB BD 
GoT0179¢ 

01-211:02-(XZ -72)*8:GOSUB18gg 
GOTO2449 
01-243:02-(XZ-74)*8:GOSUB189g 












MEET Delphi Bureau 


ploading Files to Delphi 





ast month we began our investiga- 

Ç tion of the personal Workspace 

area in the MS-DOS SIG on Del- 

phi. Primarily, we discussed how to 

upload a file into the Workspace using one 

of the three supported transfer protocols: 

ASCII, Xmodem and Kermit. Now let's 

take a look at what you can do with a file 
after it's there. 

One of the most important things, of 
course, is to publish a program in the 
database so that all the other members can 
download it. This can be one of the 
generally excellent “usersupported” or 
"Shareware" programs, or it can be a 
program that you've written yourself and 
want to share with others. After all, it's 
hard not to be proud of a program you've 
created, slaving over the keyboard, run- 
ning it over and over until it's just right. 
And it's a lot more fun when you can share 
your work with others who will appreciate 
it as much as you do. 

After you have entered your Work- 
space, the first thing you may want to do 
prior to making a database submission is 
to check the directory to ascertain the 
proper filename of the programs you're 
about to submit. To do this, you type DIR, 
just as on your own computer. And 
remember, too, that the MS-DOS ques- 
tion mark (?) and asterisk (*) wild cards 
work the same familiar way when used 
with the DIR command in your Work- 
space. 

After you've checked for the proper 
filenames, you're ready to begin the 
submission process. Type SUBMIT. The 
system responds with a couple of lines of 
instruction and asks if you wish to con- 
tinue. Of course, you respond YES, or with 
a simple Y to save yourself a few key- 
strokes. 

Now the system asks you how many 
files you will be submitting. One of the 
nice things about the Delphi database 
software is that it allows you to *group" 
related files together under a single de- 
scription. Let's say you have three files 
that you're submitting together: a com- 
piled, executable version of your BASIC 
program; the BASIC source code itself; and 
a separate file of instructions and docu- 
mentation. That's three, so you respond 
with 3 when the system requests this 
information. 

The system then asks you whether all 
three files are related in such a way that 


+ 


they should be listed as a single “group’ 
in the directory. In this case, you again 
respond with YES. 

The system then asks you for a “file- 
type,” and displays a list from which to 
choose: program or program pack, news- 
letter, article, transcript, documentation, 
data (graphics, etc.) or miscellaneous text. 
Since we’re dealing with a program here, 
the proper response is PROGRAM, or simply 
PRO. 

Now the system asks what topic of the 
database you wish to submit your file to. 
If you're not familiar with the topics that 
are available, you can enter a question 
mark (?) here and the topics will be 
displayed: 


General Information Archives 
Business Education 
Home & Games Programming 
Telecommunications Utilities 
PCM Collection Info on PCM 
Soft Sector Info SS On Disk 


If your submission happens to be a 
recipe file program, for example,we enter 
HOM to select the Home & Games topic. 

Now a name for the “group/set” is 
requested. This is the name that appears 
in the database directory, but you’re not 
limited to a directory entry as you may be 
accustomed. Here you’re allowed up to 32 
characters, so you can really use a mean- 
ingful name, such as RECIPE FILE DAT 
ABASE. 

When you're finished naming the 
group, you are asked to enter a brief 
description of the file. This is where you 
should write a little paragraph telling all 
about your program: the author's name, 
what the program does, the specific 
system requirements; anything you can 
think of that the person who uses it may 
need to know. When you're finished, enter 
a CTRL-Z to close the description entry. 

Now comes the time when you must 
enter “keywords” that describe your 
program. These are simply descriptive 
words that can later be searched on to 
locate programs of similar type. The 
entire directory in a certain topic can be 
extremely long and confusing, but by 
searching on these keywords, you can set 
it to display only those files that are 
similar to something you're looking for. 


The first keyword requested is the 
“primary” keyword, and must be chosen 
from a select list that has been installed 
by the database manager. At the primary 
keyword prompt, you can once again 
enter a question mark (?) to display the 
choices. In the case of the Home & Games 
topic, the choices are: arcade games, 
adventure games, finance, management 
and miscellaneous. In this case, it looks 
like miscellaneous might be the best 
choice for our recipe file program, so enter 
MISC. 

You can now enter any other keywords 
that you like, the idea being to try to 
imagine what keyword someone else 
looking for a recipe file program might try 
to search for. Some possibilities would be 
"cooking," “recipes,” “database,” or 
maybe even “food.” You can also put the 
author's name here and something like 
*1000" if you know the program runs on 
the Tandy 1000. Then members who are 
using the 1000 can start a search on that 
keyword and only those files will be 
displayed. 

Next you are asked for information 
about each of the files. The first request 
is for the filename of the file in your 
Workspace. You found this earlier when 
you checked it in the directory. Then you 
are asked if the file must have any special 
filename when it is downloaded — gener- 
ally the same as you uploaded it into your 
Workspace, but not necessarily. Finally, 
you are asked for a name to appear with 
the file in the group directory listing 
which, again, can be a descriptive name, 
such as RECIPE FILE DOCUMENTATION. 

This naming process is repeated for 
each of the three files that you are submit- 
ting, along with a query as to whether you 
would like it deleted from your Work- 
space. When you finish with the filename 
information for each file, the submission 
process is complete. Your file then goes to 
a "preview" area for testing before being 
moved into the open database for the 
members. 

Although going through all this may 
seem like a very long, drawn-out process, 
it really isn't. After you've tried it once, 
you'll see just how simple it really is. 


— Kevin Nickols 
MS-DOS SIG Manager 
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EE Feature 1000/1200/2000/3000 
F 


H Improve your numeric-keypad 
f entry skills 


/, Hitting the Right 
Keys 
ή 


Ws» I started using my new By John McCormick 


















































1200H D, I soon discovered that the 

function keys to the left of the 
keyboard would be very easy to get accus- 
tomed to because they are used so seldom, 
compared with the typewriter keyboard 
portion. 

What I did have trouble with was the 
numeric keypad on the right side. Sure, it is 
a great convenience to have all the numbers 
there and not just spread out across the top 
of the keyboard with the special characters, 
but I never had an adding machine in my 
deprived youth and, consequently, had never 
learned to use a keypad. 

I knew I would eventually pick up a "feel" 
for the new keys, but I wanted to learn more 
quickly, so I wrote this little program to 
generate “random” numbers and check on the 
accuracy of my keypad entry. With the 1200 
it was easy to include a timer, so I added a 
section to help keep track of your speed. 

The program is straightforward and sim- 
ple, because I don't have time for some of the 
longer, more sophisticated programs and I 
think a lot of you probably don't either. After 
all, this program should make your computer 
use easier and faster; why make it more 
complicated than necessary? 

This is why I did not provide for decimals 
and why the average time calculation is only 
approximate. I feel that learning the numbers 
is the major problem and most won't even 
notice where the inaccuracy lies. In any case, 
the numbers are only useful for comparison 
with other runs of the same program. I felt 
the extra lines required to correct these small 
shortcomings: would just mean that many 
more people would not use the program. O 


— 
WII 





John McCormick started programming 
in 1965 while majoring in physics in 
college, and was formerly employed 
with Wang Labs. He has written several 
reviews for THE RAINBOW. 
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The listing: 


1 REM BY JOHN MCCORMICK 11/85 
19 RANDOMIZE 


28 INPUT "SELECT MAXIMUM NUMBER OF DIGITS. 


25 T =TIMER 
39 X= (INT(RND*(19^N))) 
35 CLS 
37 G = TIMER 
48 PRINT, "TOTAL TRIES" NUMBER, 
SECONDS" : PRINT: PRINT: PRINT 
IF NUMBER - 9 GOTO 45 


"NUMBER WRONG" WRONG | “ELAPSED TIME"INT(C-T)" 


PRINT "PERCENT WRONG..." INT ( CWRONG/NUMBER) LØ) "3" 
PRINT "AVERAGE TIME REQUIRED FOR ONE CORRECT"N"DIGIT ENTRY..." INTC (C-T)./(NUMB 


- WRONG) ) "SECONDS" 
PRINT; PRINT: PRINT; PRINT; PRINT 
PRINT"NUMBER.... 
INPUT "INPUT FROM KEYPAD.. ",Y 
NUMBER = NUMBER + 1 
IF Y = X THEN GOTO 39 ELSE BEEP 
WRONG = WRONG + 1 
CLS 
PRINT "WRONG, TRY A NEW NUMBER" 
FOR A = 1 TO 259 
NEXT A 

199 GOTO 39 


TANDY 1000 
Multifunction Board 


€ 512 K Ram 

€ RS-232C Serial Port 
® DMA Controller 

® Clock-Calendar 


329995 


ADDITIONAL TANDY COMPATIBLE 
PRODUCTS AVAILABLE 
CALL FOR A FREE CATALOG 


Micro Mainframe 4N19? 


11285-E Sunrise Gold Circle 


MEET THE WIZARD" 


Quality / Price / Performance Guaranteed 


Easy to use! $29.95 for any one package 


9.95 for each additional 
For TANDY 1000, 1200, 2000, 3000 and Compatibles 


1. RAMDISK — Transform your spare memory into 


superfast disk(s). You specify size and number. 

"NEW' replace your old ramdisk software. 
and Ours has automatic timed backup. 

BETTER Never again lose your ramdisk data. 


. UNDELETE Plus — Recover deleted files, graphics 
display of directory tree, rename directory, find 
files in any directory, display sorted check files, 
change file attributes, and more (10 programs in 
all). 

. SNAPSHOT — Instantly save and display up to 99 
text screens. Great for debugging, Help screens, 
etc. 

. XTEND — Instantly recall, edit and execute your 
last 30 DOS commands. Execute multiple com- 
mands with one keystroke. (Macro facilities). 
Makes DOS easier! 

. GRAFIX — Send graphics screen image to printer. 
You set printout size/density. (for most printers) 

. FONTIX — Set printer fonts, tabs, margins, etc. 
Automatically produce paginated printouts and 
structured Basic listings. (for most pri 


Rancho Cordova, CA 95670 ` URP VERE p AR I 800-622-4070 
(916) 635-3997 NEZ eersLb WIZARD 13 Utilities — $00-942-7317 in ILL. 
L us νὰ : $3.00 ship & handli 
Sudbury, MA 01776 in Mans add SN fax. 
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MEI Feature 100/ 200 


Your computer 
turns the tables 
and gives you a 
chance to do some 
deductive reasoning 
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Color Code Combo 


By Dan Bishop 


n Color Code Com- 

bo, the computer se- 

lects a random se- 

quence of colors 

(represented by their 
first letters, such as 'R' for 
red, ‘O’ for orange, etc.). The 
number of colors used is 
determined by the player at 
the beginning of each game, 
and may range from three to 
eight. The player also selects 
the length of the sequence, 
from three to eight, which 
might or might not match 
the number of colors 
chosen. The computer may 
repeat colors within the se- 
quence or may completely 
omit some colors. The bot- 
tom line of the display shows 
the colors allowed for the 
current game. 

The player then has 12 
opportunities to guess what 
the coded sequence might 
be. All 12 guesses remain on 
the screen for reference. 
After each guess, the player 
may select Option 'X' to go 
back and change the guess 
just entered, or Option ‘E’ to 
have the guess evaluated by 


Dan Bishop owns and oper- 
ates a computer consulting 
and custom programming 
firm in Buena Vista, Colo- 
rado, and teaches computer 
science courses at Colorado 
Mountain College in Lead- 
ville, Colorado. At an eleva- 
tion of 10,000 feet, CMC is 
the nation’s highest institu- 
tion of higher learning. 


the computer and end that 
turn. When evaluating a 
guess, the program first 
checks to see how many col- 
ors in the guess match colors 
in the secret code. It then 
determines how many of 
these correct colors are lo- 
cated in the correct place 
within the sequence. Both of 
these results are displayed 
alongside the guess. 

After several guesses, the 
player should be able to use 
the evaluations presented 
for each guess to deduce the 
correct sequence of colors in 
the code. If the code has not 
been correctly guessed after 
12 tries, the secret code is 
displayed and the game is 
over. The number of colors 


The listing: 


and length of the sequence 
used for a given game may 
be changed at the beginning 
of each round. 

I have found the game to 
be very entertaining for ages 
four or five through adult. 
Preschoolers can be started 
on a three-color by three- 
position game and, with 
help from an adult, can gain 
experience in making logical 
deductions from limited in- 
formation. Adults can find 
the eight-by-eight game an 
extremely challenging expe- 
rience. And with the use of 
the random color selector 
within the program, seldom 
(if ever) will you find two 
games with the exact same 
secret code. 


| 
1 REM COLOR CODE COMBO 
2 REM C 1984 By D. Bishop 
16 DIM A$(12),C(12) ,L(12) : CLS: PRINT"COLO 


R CODE COMBO":AS="J]## N 
col loc 
(X:correction E:evaluate) 


$="Choices: 
c":D$e" XE 


*[":B 
col lo 


N # 





29 PRINTQ135,"RANDOMIZING":FOR I-1 TO (V 
AL(MID$ (TIMES ,4, 2) )*2G+VAL(RIGHT$ (TIMES , 


2))):X-RND(1):NEXT I 

199 FOR I=g TO 12:C(I)=9:L(I)=9:A$(I)=" 
":NEXT I:C$-2" ROYGBPWV" 

11g PRINT@291,"How many colors (3-8)";:T 

$-INPUT$(1):C-VAL(T$):IF C«3 OR C>8 THEN 

11g 

120 PRINT" --> "C:CS=LEFT$(C$,2+C)+" X 

"4STRINGS (8-C, 32) 

139 PRINT@281,"How many locations (3-8)" 


+; TS=INPUTS(1):T=VALC(T$):IF T«3 OR T58 T 
HEN 13g 

149 PRINT"--> "T:FOR 151 TO T:MID$(AS$(9) 
,L,1)=MID$ (C$ ,2+INTC(RND(1)*C+1)):NEXT I 
200 FOR K-1 TO 12:KK=-(K>6):GOSUB 599:PR 
INTC$;:G$z"" 

210 FOR L-1 TO T:CL=49*(K-1)+1-221*KK: PR 
INT@CL+2+L,""; :Y$=INPUT$(1):IF Y$-"X" TH 
EN L-L-2-(L«2):G$-LEFT$(G$,L):GOTO 259 
229 II=%:FOR I-1 TO C:IF Y$-MID$(C$,24I, 
1) THEN II=I:I=C 

239 NEXT I:IF II=% THEN Y$=" ":L-L-1:GOT 
o 259 

249 PRINT@CL+2+L, Y$; :G$=G$+Y$ 

259 NEXT L 

269 A$(K)=G$:PRINT@281,D$; :YS$=INPUTS$(1): 
IF Y$="X" THEN K=K-1:GOTO 289ELSE IF Y$« 
>"E" THEN 269 

270 GOSUB 499:IF L(K)-T THEN KK-K: K-1 
2 

289 NEXT K 

390 IF L(KK)-T THEN BEEP: P 
RINT@281,"YOU WIN! tt s r GOTO! 31. 
ØELSE PRINT@281,"SORRY!  ANS-";A$(Q); 
319 PRINT@302,"TRY AGAIN? (Y/N)";:Y$=INP 
UT$(1):IF Y$-"Y" THEN CLS:GOTO 10gELSE I 
F Y$<"N" THEN 319 

320 CLS:END 

499 L(K)-9:RT$-A$(8):FOR I-1 TO T:IF MID 


$(G$,I,1)-MID$(A$(8),I,1)THEN L(K)=L(K)+ 
1 


419 NEXT I:J=9:C(K)=9 

419 FOR 1-1 TO T 

429 J-J41:1F MID$(G$,I,1)=MID$(A$(),J,1 
)THEN C(K)=C(K)+1:MID$(A$(@) ,J,1)-" ":GO 
TO 44g 

439 IF J«T THEN 429 

449 J-g:NEXT I 

459 AS(g)-RT$:RETURN 

599 CLS:FOR I-1 TO 6:II=I+6:PRINT USING 


AS*A$;I,AS$(I),C(I),L(I),II,A$(II),C(II), 
L(II):NEXT I:PRINT B$:RETURN 


¢heapware® Label Makers 
for the Tandy 1M 1000, 1200, 3000 and compatibles 


LABEL MAKER: Types multiple copies of the same label. Version I is for a fixed platten 
printer and prints on three across labels while Version II prints on one across labels for 
an adjustable platten printer. May be supplied with labels. 

Version I - $30 or $50 with 3,000 labels Version II - $50 or $75 with 5,000 labels 


The Complete LABEL MAKER: Includes all of the above features and can type address 
labels from an internally created mail order file. Mail order file is unlimited and allows a 
card file for each entry. Printing may be limited to only those entries with a specific line 
tag. May be supplied with either one or three across labels. 

Version I - $100 or $115 with 3,000 labels Version [1 - $100 or $125 with 5,000 labels 


Price includes shipping. VISA/MasterCard accepted. 

Information/Orders call: 

Robert L. Nicolai 800-NICOLAI (642-6524) 
4038 N. Ninth Street or 

St. Louis, MO 63147 314-621-7618 in Missouri 


Tandy is a trademark of Tandy Corporation 


CERTIFICATION 
SEAL 





Super 
Utility 


Fixed/Floppy Disk Tools for Tandy 1000, 1200, 
2000, IBM PC™, XT", AT", Compaq, AT&T 6300, 
Leading Edge, and many other PC compatibles. 


Data file recovery, disk exploring, 
zapping, and MUCH more! 


Accidental deletions and disk directory problems can happen to 
anyone at anytime... a power spike, fingerprint, speck of dust, 
hardware problem, or simply typing DEL *.* in the wrong sub- 
directory can destroy critical data in a moment without warning. 
Therefore we introduce Super Utility for the PC - an easy to use 
disk utility containing many functions sorely needed in today's 
PC/MS-DOS computing environment. It's really great! 


With SU/PC you can restore damaged or deleted files using two 
different methods (one very easy, the other a bit tougher). Even 
clusters of an erased file assigned to another file can still be 
restored, unless the user has physically written over every byte of 
the original data (most applicable with word processing files). 


In addition to file repair and recovery, Super Utility provides 
sector verify, sector editing, modification of sectors in Hex or ASCII, 
ease of renaming of files and setting their attributes (lock and 
unlock files, make them visible/invisible, etc.), ASCII string search, 
copying sectors to a file, diagnostic sector checking, mapping of 
the FAT table of a file or an entire drive, visual graphics pertaining to 
your system, and full directory and sub-directory editing without 
endless menu-hopping - all in one program. Want to change the 
name of your sub-directrory without copying all your files to a new 
one? Just retype a new name over the old one with SU/PC! The 
sector display mode displays all 512 bytes on-screen at one time 
and allows you to fully explore your disks. SEARCH and CHANGE 
are nice here too! Will find any occurance of a byte or string on your 
disk. Compatible with DOS versions 2.0 - 3.1 on most systems. 
Some computers may require the use of PC-DOS. Color, 
composite, or monochrome video are supported. A great tool for 
fixed disk users as well as floppy. Also compatible with IOMEGA's 
Bernoulli Box™ storage device (distributed by Tandy as the 
Cartrdge Disk System). SU/PC is a totally new program that fills the 
gaps that PC users have most need of and have asked us for. It's 
aimed at the beginner, the "office user", hobbiests, students of the 
PC, or programmers alike. Unprotected media. 


Super Utility/PC 
ony $89.95 


See Review in March '86 PCM 


-POWeE3XOrc- 


17060 Dallas Parkway, Suite 114 
Dallas, Tx 75248 + 214/733-4475 


Ordering, questions, and support always available on the PowerSoft Sig! 
Type GO PCS-56 from any prompt on CompuServe™! 


Available worldwide through Radio Shack™ 
Express-Order - Cat # 90-0407 


Prepaid or charge card orders Ἐν /) include free UPS shipping to US addresses! Blue 
label, COD, or over-night shipping avallable at extra charge. VisasMasterCard 
accepted. Canada, please add $3; airmail. Other countries add $15 for airmail, 
Foreign orders, please use Charge Cards ONLY. Checks not drawn on US banks not 
accepted. Texas residents must add appropriale sales tax! 
Requirements: IBM PC or compatible running PC/MS-DOS 2.x-3.x, minimum of 128K 
meman and at least one disk drive. PC-DOS may be required for use. 

IBM, PC, XT, AT are registered trademarks of International Business Machines Corp. 
MS™ is a regstered tm of Microsoft. Radio Shack™ is a registered tm of Tandy Corp. 
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Discover the Artist in You 
with PC Paintbrush 


Software 1000/1200/3000 


PC Paintbrush is the best software 
package I've had the pleasure of review- 
ing for along time. I knew, before I even 
made backups, how the program was 
designed to work and couldn't wait to 
get it running. I have a degree in art and 
love to use quality graphics programs 
on my computers. The reason for my 
excitement becomes more apparent 
when you consider that PC Paintbrush 
is one of the best selling “Mac Paint- 
type" programs available for MS-DOS 
computers. And it's better than Mac- 
Paint because PC Paintbrush is in 
glorious color. 

The system you need to run PC 
Paintbrush includes 320K of memory 
(probably more on the Tandy 1000) one 
disk drive, a graphics display, MS-DOS 
2.0 or above and a mouse, joystick or 
digitizer. On the Tandy machines you 
will want to make sure you have the 
Tandy Mouse or a digitizer installed. 
PC Paintbrush does not work with the 
joystick ports on the front of the Tandy 
1000. 


It Has It All 

If you aren't familiar with the 
Mac Paint-style of graphics software, let 
me quickly try to explain. You use the 
mouse (input device) to move a cursor 
about the screen selecting tools, such as 
paintbrushes, lines, circles, boxes and 
filled shapes to name a few, and then 
pointing or dragging the tool across the 
graphics area to create different effects 
and colors. Selecting colors is the same; 
point and click from a palette of colors 
at the bottom of the screen. 

The tools available on the main menu 
of PC Paintbrush icons include a spray 
can, scissors, editing box, eraser, color 
eraser, paintbrushes, line, curve, box, 
circle, rounded corner box, and the last 


three again, filled. Also, there are pull 
down menus for editing, changing 
brush shapes, file I/ O, editing patterns, 
changing text fonts and sizes, scroll 
bars, undo and more. 

The Standout Features 

Some of the features found in PC 
Paintbrush are particularly impressive. 
In addition to color, PC Paintbrush has 
patterns that may also be edited, saved 
and loaded. This is like Mac Paint; but 
of course, with colored patterns. 

You don't have to scroll much with 
PC Paintbrush because it is possible to 
click the menu off and work over the 
entire screen with many of the tools. 
However, not all the tools can be *car- 
ried" to the full screen with menu off. 

The printer software included with 
PC Paintbrush, Frieze, is another rea- 
son I find this package particularly 
impressive. 

One of the nicest features, for my 
money, is the large set of fonts available 
and the different point sizes you may 
select. You may select from a range of 
nine different point sizes which are, of 
course, proportional to the size of 
printout you select using Frieze. Also, 
the styles menu has a full set of selec- 
tions including light, medium, bold, 
italics, underline, outline, kerning and 
shadow. The font styles include Compu- 
ter, Old English, Roman, Light Roman 
and Script. 

The color eraser is a really interesting 
and powerful feature. With it, you select 
a foreground color/pattern to be re- 
placed by a background color/pattern. 
You may change the size of the color 
eraser using the line weight settings. In 
fact, many of the other tools, in addition 
to line and circle functions, have their 
size controlled by the line weight set- 
ting. 

Frieze 

Included with PC Paintbrush is a 

program mentioned earlier called 
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Frieze. It is a self-contained program 
for printing PC Paintbrush pictures and 
loading graphics from other software 
into PC Paintbrush for improvement 
and enhancement. 

Frieze will print sections of a graph- 
ics screen or the entire screen, normal 
or sideways, reduced or enlarged and 
with a selected left margin width. It also 
allows you to save and restore a screen 
or section of a screen to and from a 
diskette. Frieze works on other graphics 
programs including Lotus 1-2-3, and 
Symphony. The PC Paintbrush manual 
includes complete instructions on using 
Frieze. PC Paintbrush supports a wide 
range of dot-matrix printers and plot- 
ters, so Frieze is a valuable addition to 
the software package. 

You may enlarge or reduce a screen 
or section of a screen from one inch by 
one inch up to two feet by 300 feet. 
Frieze attaches itself to DOS, so you 
can invoke it after leaving PC Paint- 
brush. It can be modified easily or used 
with its current default settings. The 
defaults can also be changed. You may 
change color patterns for dot-matrix 
printers or set colors for a plotter. 


Installing for the Tandy Mouse 

One minor problem I ran into while 
installing PC Paintbrush concerned 
gettingitto work with the Tandy Digital 
Mouse. There is no selection for the 
Tandy Digital Mouse in the input device 
section of the installation program. To 
do this installation you should config- 
ure the rest of your system and leave the 
input device as it is shipped — Joystick. 
Then, using Edlin or another MS-DOS- 
compatible editor, edit the first line of 
a file called PSETUP.DRT. Change the 
character J to an M and save it back to 
diskette. Now, as long as your CONF IG 
.SYS file loads MOUSE.SYS and then 
boots PC Paintbrush, your Tandy Dig- 
ital Mouse will work wonderfully well. 
After contacting the courteous help at 
Z-Soft for instructions on doing this 
installation, I believe that in the near 
future subsequent copies of PC Paint- 
brush will have the instructions for this 
process included. 

In general, I found the installation 
easy and quick, even though I had to do 
a few extra steps for the Tandy Digital 
Mouse. The installation process is 
completely menu-driven and easy to 


understand. As a final note about the 
installation, PC Paintbrush supports 19 
video graphics cards including one card 
that supports 512 by 512 resolution with 
256 colors and the IBM EGA standard. 
PC Paintbrush also supports 30 differ- 
ent printers and plotters. 


In Summary 

I highly recommend PC Paintbrush 
to anyone. It is a well-designed program 
that practically requires no manual to 
operate on first start-up. If you have 
ever had the desire to create color 
graphics in the style of the MacPaint 
software, this package is for you. 

The addition of Frieze makes the 
package even more complete and adds 
to your already growing MS-DOS 
system. The people at Z-Soft are to be 
congratulated for an excellent package 
at a fair price. In addition, they are 
courteous and helpful over the phone in 
providing technical support. 


(Z-Soft, Inc., 1950 Spectrum Circle, Suite 
A-495, Marietta, GA 30067, 404-980-1950, 
$139) 


— Bobby Ballard 





SWAN 


The Handicapper 


Use your Tandy 1000, 1200, 2000 or Model 100/200 


WORD PROCESSING 
TRAINING GUIDE for 
IBM-PC and TRS-80 


Become an expert in the advanced word processing 
techniques in just a few hours. Develop skills that can 
be applied to any of the best selling word processors, 


to improve your performanoe at the track! Separate pro- 
grams for Thoroughbreds, Harness horses and Grey- 
hounds rank the horses or dogs in each race. Handicap a 
race in minutes, even if you've never handicapped a race 
before! 

All the data you need is readily available in the thor- 
oughbred Racing Form, harness or dog track program. 


no matter which system you decide to buy. Includes 
program disk so you learn quickly by doing. The train- 
ing guide and training program disk (a $50.00 value) 
will be sent to you absolutely free, with no obligation, 
upon receipt of this filled out coupon. Offer good for 
a limited time. 
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Toll Free (Orders Only) 800-628-2828 
ext. 850 


301-521-4886 


*(Computer names are tradenames and/or trademarks of their respective 
manufacturers.) | 


For Information Call sss μωρο es ee 


š ` 5 s E LeScript Word Processing Systems l 
We even provide diagrams showing you where to find the P.O. Box 361136, Melbourne, FL 32936 
information you need! Data entry is quick and easy. Our i (or call 1-305-259-9397) 1 
manual shows you how to bet, when to bet and when to RB Type of computer system: l 
sit out—one of the real secrets of good handicapping. n IBM-PC/XT/AT/PC jr o TANDY-1000 
Thoroughbred, Harness or Greyhound Handicapper, i o TANDY-2000 ü ced ο. l 
$49.95 each on T1K disk. Thoroughbred and Harness Ë 9 eee ui re I" 
only, $49.95 each on Model 100/200 tape. Any two for 3 " 
$74.95, all three $99.95. You can buy a more expensive Name 
handicapper, but you can't buy a better one! i | 
° 3 Address i 
Federal Hill Software SPORRE š " 
8134 Scotts Level Rd. [παν "EZ State Z i 
Baltimore, MD 21208 
E Telephone 5 
i 
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Hardware 1000 


4Ν] — An Excellent 
Way to Upgrade 
Your 1000 


The 4N1-1000 board from Micro 
Mainframe of Rancho Cordova, Cali- 
fornia is an excellent way to upgrade a 
standard 128K Tandy 1000 to near its 
full potential. Having only three expan- 
sion slots requires careful consideration 
of just what to install. By using a 
multifunction board, a user can save 
those valuable expansion slots for 
future use while at the same time, 
building up the computing power of the 
Tandy 1000. 

With the 4N1 board, you can add 
512K of memory to bring the machine 
up to 640K total. You can add the 
memory in increments of 64K, 128K or 
256K as you choose. The board also 
contains the DMA chip needed to use 
the larger amount of memory. This chip 
also affords more compatibility with 
many of the software programs availa- 
ble under MS-DOS. 

Another standard feature included is 
an RS-232 serial port for communica- 
tions. 

Options for the board include a clock 
or a combination of clock and Digi- 
Mouse port. 


Support 

When I plunk down my hard-earned 
bucks on anyone's product, I expect 
their backing if I have a question or 
something goes awry. I believe Micro 
Mainframe fulfills the requirements 
here. I found Mark Menz and his staff 
to be helpful, friendly and most of all, 
knowledgeable. They maintain a voice 
help line and a BBS for buyers of their 
products. The BBS contains tips and 
software, including a RAM disk and 
other utilities. They have been supply- 
ing third-party hardware for Tandy 
machines since shortly after the intro- 
duction of the Model I. 

As for installation, there really isn't 
much to do! Just remove the computer 
cover and plug the board directly into 
any of the available slots. The whole 
operation shouldn't take more than a 
few minutes. The instruction booklet I 


received with the review copy was not 
very complete and led me to make a 
phone call to the company. I was as- 
sured that the booklet I had was a pre- 
production version from the very earli- 
est boards. Mr. Menz states that the new 
manual is more complete. 

To test the board, I replaced the 
memory board in my computer with the 
4NI board and let it go to work imme- 
diately. I used the serial port to operate 
my PC-Mouse for several days, then I 
used it with my modem for a busy BBS 
weekend. In both cases, it performed 
flawlessly. There were no conflicts 
apparent with the operation of a third- 
party hard disk drive nor with another 
option board I have installed. 

All in all, I can heartily recommend 
consideration of the Micro Mainframe 
board to anyone considering adding 
features to their Tandy 1000. By adding 
640K of memory, a DMA chip, a serial 
port and the optional clock and/or 
DigiMouse port using only one slot, 
you will find you have two empty slots 
to be filled with whatever goodies you 
can dream up. Mark Menz of Micro 
Mainframe also mentioned that addi- 
tional options for the board would be 
available; perhaps by the time you are 
reading this review. 


(Micro Mainframe, 11285-E Sunrise Gold 
Circle, Rancho Cordova, CA 95670, 916- 
635-3997, $299.95) 


— Leonard Hyre 


Software 1000/1200/2000/3000 





BDL Roast: Just 
What the Cook 
Ordered 


BDL Roast is a simple straightfor- 
ward program which can be described 
as well-done. The documentation is rare 
in its approach to computerese. In other 
words, I found no beef with Bette 
Laswell’s programming. 
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. Availability | 


Back copies of many issues: 


H: of PCM are still available; 


All back issues sell for the. 


| single. issue cover price. In 
; addition, there is a $2 charge 
"for the first issue plus 50 
cents for. each additional | 
| issue, shipped in the U.S. 
| When. possible, 
Ht shipped UPS. The postage 
(cost in Canada and Mexico 
is $3 for the first issue and 
51 for each. additional issue. 


issues. are 


VISA, ‘MasterCard ‘and 


ΠΗ American Express accepted. 
Kentucky. residents please 
add 5 percentstatesalestax. ' 
| We do not bill and no COD. 

| orders accepted. 


We Alit lie .. 


ae on d ‘next page Ad 
 mailit with your payment 
tor ; | 


PCM | | 
| The Falsoft Building | 
_ Prospect, TY 40059 | 





C Please send me the following back 
issues: 

(Payment must accompany back issue 

orders.) 


VOLUME 1 
NO.MO. YR. PRICE 
1 JULY 83 PREMIERISSUE $3.00 D 
2 AUG. '83 $300 D 
3 SEPT. '83 $300 D 
4 OCT. '83 $300 O 
5 NOV. '83 $300 D 
6 DEC. '83 $300 D 
7 JAN. 84 $3.00 O 
8 FEB. 84 $3.00 O 
9 MAR. '84 $3.00 O 
10 APR. '84 LIMITED $300 D 
12 JUNE '84 5900 O 
VOLUME 2 
2 AUG. '84 $3.00 O 
3 SEPT. '84 $3.00 O 
6 DEC. '84 $300 O 
7 JAN. '85 $300 O 
8 FEB. 956 $300 ΓΙ 
9 MAR. '85 $3.00 D 
10 APR. 85 $300 D 
11 MAY 85 $3.00 D 
12 JUNE '85 $3.00 D 
VOLUME 3 
1 JULY 86 $300 D 
2 AUG. '85 $300 O 
4 OCT. '85 $3.00 O 
5 NOV. '85 $3.00 D 
6 DEC. 86 $3.00 O 
7 JAN. 86 $300 D 
8 FEB. 86 $300 O 
9 MAR. '86 $300 O 
10 APR. 88 $300 O 
11 MAY  '86 $300 D 
12 JUNE '86 $300 O 
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Seriously, I must admit there was an 
error on the particular disk which I 
reviewed and it would not fully generate 
the files needed for an auto-start, but I 
was able to operate under MS-DOS on 
my Tandy 1000. 

The BDL Homewares series was 
designed for pure IBM machines, but 
run well on the Tandys. The documen- 
tation has to be translated from side-by- 
side drives to the up- and down- 
configuration common to Tandy. 

Ms. Laswell has a long background 
of computer programming, and an 
appreciation of the word personal in 
personal computer. She has therefore, 
programmed a series of applications 
which are handy around the home, and 
make the PC something more than a 
glorified toy. 

BDL Roast is just what the cook 
ordered. As one of the cooks in this 
household, I appreciated BDL Roast as 
soon as I had it cooking . . . er, going. 
Roast is menu-oriented and very quick 
and simple. You tell the program what 
you want to cook and when you want 
to serve, and the computer tells you 
when to put the meat in the oven and 
at what temperature you should set the 
oven. 

Reviewers must suffer all kinds of 
privation to test a program to the limit 
of endurance, so we ran the test on a 
rump roast which was to be medium by 
7:33 p.m. Roast said to put the beef in 
the oven at 4:11 p.m. I did, and the meat 
was just right. (The potatoes were great 
and the broccoli au-gratin was a work 
of art.) 

Essentially, you choose the type of 
meat; Beef, Lamb, Pork/Ham, Veal, 
Chicken, Duck, Goose, or Turkey, and 
tell how much it weighs. You then 
indicate the degree of doneness you 
desire and the time you want to take the 
meat out of the oven. The program then 
tells you when you must put the meat 
in and what the oven temperature 
should be. 

BDL Roast is a useful program. I 
wish I could think of a way to make it 
resident in a good cookbook database. 
It does exactly what the author intended 
it to — it brings handy purposefulness 
to the home computer. 


(BDL Homewares, 2509 N. Campbell Ave., 
#328, Tucson, AZ 85719, $24.95) 


— Howard Lee Ball 


1000/1200/2000/3000 


Software 





The Banner Machine 
— Not Just Another 
Banner Program 


This isn’t the simple little banner 
program frequently found on the local 
bulletin board. I have one that prints 
lettering of various sizes, all of which 
are very odd looking with square 
corners where they don’t belong. The 
Banner Machine is different, it prints 
nice letters with your choice of fonts, 
borders, shades, spacing, justification 
and more. A number of graphics char- 
acters are also offered as a special font. 
You can even build your own font with 
selected characters from the various 
fonts included in The Banner Machine. 
It is truly a quality product that would 
be a nice addition to anyone’s supply of 
software. 

The Banner Machine is not copy- 
protected and includes batch files and 
instructions for making a backup disk, 
for installation on a diskette with your 
system files and for installation on a 
hard disk. The Banner Machine is 
aimed at individuals, business owners 
and teachers. Within the limitations of 
your printer, it produces professional 
quality signs and banners in a few 
minutes at minimum expense. Unlike 
many products that print graphics, The 
Banner Machine allows some control 
over the quality of print. It takes full 
advantage of your printer’s capabilities. 

Fourteen different IBM PC compat- 
ible computers with 256K of memory 
are supported. This includes the Tandy 
MS-DOS machines. Several types of 
printers are also supported, including 
the Radio Sahck DMP-430, DMP- 


.2100P, DMP-2200 and DMP-130. 


Printer models made by IBM, Epson, 
Gemini, Okidata and others are sup- 
ported. Narrow paper of 8^ inches can 
have up to eight lines, and wide paper 
of 14 inches can have up to 14 lines. 

You have the choice of normal or 
reverse print (similar to inverse video). 
Bold (double-strike) can be specified. 
Shading can be selected from 20 differ- 
ent patterns, which can be placed in the 
background or foreground. 

The print features also include op- 
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tions for printing with stripes and 
borders. The border can be printed with 
the right, left or both ends missing. The 
banner can be printed with sizes set 
assuming there is a border, but without 
the border being printed. Special ad- 
vanced features are available for print- 
ing with more than one pass through the 
printer. Some of these special features 
require a small pencil mark on the paper 
so it can be started at the same place for 
the multiple passes through the printer. 
There are several examples in the man- 
ual with step-by-step instructions for 
using the advanced features with differ- 
ent printer ribbon colors. 

Banners can be saved to, loaded 
from, or deleted from a disk. A group 
of banners can even be chained together 
to be printed as a group. 

Several layout choices are offered. 
Left-justified, right-justified, centered, 
even margins and tab are pretty stand- 
ard for word processing. However, I 
didn't really expect to see all of this in 
a banner program. In addition to these 
features, The Banner Machine offers 
inverse and mirror images. Mirror 
images can be used with special heat 
transfer ribbons for printing T-shirts. 


Inverse means the printing is upside 
down and backwards. For a two-line 
banner, the top line can be inverse and 
the bottom line can be normal. This 
allows for folding the banner over to 
have a two-sided sign. These choices are 
even represented in the text window on 
the screen so you can see how your 
banner is programmed. 

The Banner Machine also has many 
font, border, spacing, shading, tone and 
printing options with the capability to 
customize the combination of these 
features. A professional print shop 
could likely do a better job of printing, 
but The Banner Machine does a fine job 
with professional-like results using my 
dot-matrix printer. The Banner Ma- 
chine is more than I expected in banner 
software and it works very nicely. 

The only thing I don't really like is the 
price. At $149.95, The Banner Machine 
is a little steep for everyday home use. 
The price may well be fair considering 
all the features offered, but I personally 
like to see software priced low enough 
for occasional home use. I just can't see 
many home computer users buying this 
program for an occasional “Happy 
Birthday" banner. However, I expect a 


school or small business would quickly 
get their money's worth from The 
Banner Machine.. 


(Cardinal Software, 14840 Build America 
Drive, Woodbridge, VA 22191, 703-491- 
6494, $149.95) 


— Robert Jensen 


1000/1200/3000 


Software 





Odds Calculator — 
One Step Beyond 
Lady Luck 


If anyone who has ever played Poker 
has thought about it, they know it is a 
game of mathematical odds. The higher 
hands are harder to obtain and they are 
worth more. The skilled player can 
analyze the cards he has been dealt and 
determine what cards to discard to go 
for the best hand. This is done mostly 
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High power graphics ee a Paint, an and | lid. show 
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ext fonts, multiple 

patterns, mouse support, novice and expert modes, and more, 

ce includes, complete program, partial 

$100.00 registration price includes, complete mus Manual 
comp 


Send check or money order to: 


TOLL FREE ORDER LINE 


56K and 
ages 


10 MEG 


1/2 Height 


ete program, 
Call for 


LATEST 


(800) 


MULTIFUNCTION 
CARD (Ser. Par. 
Real Time d 
each 64K installed 


Color Graphics Card 
(with Composite 
& Light Pen Ports) 


τπτ FOR MODEL 190900 
SECOND DRIVE 
(Exact Match) 


HARD DRIVE & 
CONTROLLER 


Low Power 


PRICES!!! 


245-6228 





(800) 245-6228 


FOR MODEL 1200 
and IBM PC 


O “NEIGHBORHOOD 
PUE COMPUTER 
STORE* 


$759.90 
$95.90 


$350.99 


NO 
EQUIVALENT 


$10. 
$110. 


$124. $299.99 


$575.$1,000.99 


WARRANTY 
1 YR. ON ALL Items 


M.C. & VISA Accepted 

OWL-Services 

P.O. Box 116-D 

Mertztown. PA. 
19539 


PA Res Include 6*.Tax 
L^ PA (215) 682-6855 
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by “gut” feeling. After playing for a 
while, Poker players just know what is 
best — or at least they think they do. 
Many nickles and dimes have crossed 
the card table as a result of experienced 
players going for the "sure thing." 

You can deal 2,598,960 different five- 
card hands from a deck of 52 cards. The 
transition from a hack player to a 
winner occurs when one can determine 


the odds of every Poker hand and how 
ERE 278 GC C SEES ET TEER! LAS ACAB SO amr IURI, EOS 


*, . . the purpose of 
the program is to 
train you to 
recognize the odds of 
getting a particular 
hand..." 


_ TEE EET S EIDE TUI STE ALE TSE TIER TE 
much to bet. Lady Luck is too fickle to 
count on all the time. In the final 
analysis, it is cunning, preparation and 
personal evaluation of other players 
that wins Poker pots. 

To assist in evaluating Poker hands, 
Cheapware (Robert Nicoli) has released 
a program for MS-DOS computers 
named Odds Calculator for Draw 
Poker. What this program is can be best 
described by explaining what the pro- 
gram is not. It is not an arcade-type 
game where you play a hand of poker 
against the computer. This is a course 
in the mathematical probability known 
as “combinatronics” as applied to the 
game of Poker. The course consists of 
a booklet and a program disk. 

The booklet is sectioned into chapters 
leading the novice in mathematical 
probability from the assumption that 
they have no knowledge through ex- 
plaining how to place your bets to take 
advantage of the odds. 

The first two chapters cover the 
meaning and the elementary principles 
of mathematical probability. While they 
are quite droll and require a lot of 
concentration to understand, the pur- 
pose is to instruct the user that Poker 
is not a game of chance, but a game of 
odds. Using these odds in your favor 
results in winning. Nicoli is not a stat- 
istician nor does he pretend to be one. 
However, the elementary facts of how 
the odds in Poker can, and will, work 
for you are thoroughly presented. 

The booklet then leads you into how 
to place your bets and how to use the 
program. The computer-based program 
is essentially an odds calculator that 
determines the odds for getting a spe- 


cific hand after making a discard. It uses 
the mathematical crunching capabilities 
of the Tandy computers well. Trying to 
figure the complex calculations any 
other way would be extremely difficult. 

As your computer would most likely 
not be welcome as your partner at acard 
table, the purpose of the program is to 
train you to recognize the odds of 
getting a particular hand, how to dis- 
card to take advantage of a particular 
hand and, finally, how to bet. 

The program was written for the 
game of Draw Poker. It assumes you 
have been dealt five cards. You first 
enter the designation for each of the five 
cards you drew, then enter the cards you 
wish to discard. After checking for 
input errors, the odds for each Poker 
hand that could be made from your 
draw and discards is displayed. You 
then have the option of printing this 
data or changing the cards you dis- 
carded. By comparing the odds, you'll 
know if the proper discard is made. 


Accessory 1000/1200/2000/3000 





MouseTop — A 
Furry Companion 
for Your PC 


Remember the ads for Jaws I] — 
*Just when you thought it was safe to 
go back in the water?" 

Well, just when you think you've seen 
everything, it always comes along. And 
here it is: The MouseTop mouse cover. 

You don't need this little cover that 
fits right over your computer mouse. 
Oh, certainly, it keeps the grime, dust 
and grit off the mouse. But I have 
honestly seen darn few people use 
keyboard, disk drive and (for that 
matter) typewriter covers. Too much 
trouble. 

Those things don't have something 
that the MouseTop does — it's cute. 

“What’s that?" someone asked a few 
minutes after it arrived. “It’s a mouse 
cover," I said. “It keeps my mouse clean 
and warm." 

“It’s cute,” was the reply. “Really cute. 
At last, you have something cute to go 
with all that equipment.” 

OK. I’ve bought laser printers, 70- 
Meg hard drives, jazzy plotters and 
every computer Tandy’s made in the 


This number crunching requires con- 
siderable time. Remember, there are 
over 2.5 million possible hands in those 
52 cards. The running time for discard- 
ing three cards is 15 seconds, while it 
takes 25 minutes to calculate the odds 
of discarding five cards. While this 
seems like a long time, be happy we 
don’t have Apple computers. The calcu- 
lation time for the Apple version dis- 
carding five cards is one day. 

By running the program and compar- 
ing the odds calculated against your 
guesses, you will know what to do when 
playing without your transistorized 
buddy at your side. 

The cost of this Poker coach is mod- 
erate compared to losing in a serious 
Draw Poker game. With printed docu- 
mentation, it’s $25. 


(Robert A. Nicolai, 4038 N. Ninth Street, 
St. Louis, MO 63147, 1-800-642-6524) 


— Bruce Rothermel 


past five years. Nothing has brought as 
much comment as this little MouseTop. 

It is cute. Two ears, glasses and a 
shiny black nose. It fits right over my 
computer’s mouse. The “tail” is the 
mouse cord. 

Each MouseTop is hand-made, which 
makes each unique. And it is machine 
washable. 

I like this little varmint and I think 
you'll like it, too. It does add a touch 
of furry personality to your computer. 


(H&H Enterprises, P.O. Box 2672, Corona, 
CA 91718, 714-737-1376, $5.95, 20/20 vision 
model [without glasses] $5.49) 


— Lonnie Falk 
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ELECTRONICS 


TRS-80 Model 2000 by Tandy’ 


MS-DOS Based 


Computer System 


1198.00 
256K MOD 1200 HD 2 DR. ................. 1499.00 
128K MOD 1000 W/MONO 1 DR 
128K MOD 1000 W/COLOR 2 DR. 
256K MOD 1000 W/HARD DISK 
24K MOD 100 PORT 
24K MOD 200 PORT 
64K MOD 4D 2 DR 
SIZE MOD BOOD 608, ¿l ων εν κά 1849.00 
512K MOD 6000 W/15MEG HD 
70 MEG HARD DISK 
35 MEG HARD DISK 
DMP 105 PRINTER 
DMP 2200 PRINTER 









































PARALLEL PRINTER CABLE 

DISK DRIVE, MOD 100-200 

32K MOD 600 PORTABLE 

512 MOD/9000:1 DR... ος νο am μον 1819.00 





100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 


(817) 825-4027 


NOCONA ELECTRONICS . Box 593 + NOCONA, TX 76255 








Hardware 1000 


Zuckerboard: 
High Power, 
Low Price 


When you first purchased your 
Tandy 1000, it’s a good bet you decided 
to hold off on adding more memory, 
hoping you could better afford it some- 
time in the future. The 1000 is an 
excellent buy by itself, but Tandy’s 
prices on their memory boards are still 
pretty steep. 

The Tandy 1000 comes with 128K of 
standard memory on the motherboard. 
If you purchase the Tandy Memory 
Plus expansion board with 256K, it will 
set you back $319.95; with 512K, 
$519.90 — darn near half again what 
you paid for the whole machine. Add 
their clock option and you’re out 
another $100 (though a mouse con- 
troller is included), 

Why does the additonal memory cost 
so much? We all hear every day how 
much prices for 256K DRAM chips 
have plummeted. 

Well, the fact is, it shouldn't cost so 
much. And the Zuckerboard is a high- 
quality, reliable alternative to the high 
prices of Tandy’s expansion memory 
boards. 

Check these prices with the one 
above: The Zuckerboard with 256K 
costs $109; with 512K, it’s $149; and the 
clock/ calendar option is $39. 

Significant savings, right? Memory is 
memory — as long as it’s reliable — so 
price and warranty are the main consid- 
erations. The Zuckerboard comes out 
ahead on both counts, with a two-year 
guarantee compared to Tandy’s 90 days. 
But in fairness to Tandy, part of what 
you pay for is good, readily available 
service. In case you have a problem, 
there is a lot to be said for the value of 
having a Tandy service center right 
across town. 

The Zuckerboard I installed was the 
512K configuration. With the stock 
128K on the motherboard, this pushes 
the 1000 up to 640K of RAM. The 
clock/calendar unit was included, al- 
ready seated in its socket on the board. 

Installation is a snap: you just remove 
the two screws on the front of the 
machine, slide off the cover and remove 


the screw and metal bracket from any 
of the three expansion slots. Then you 
plug the board into the slot and secure 
it with the screw you removed. Brief, 
easy-to-follow instructions are included 
— anything more complex would be 
overkill because the installation is really 
a simple process. 





“. . . the Zuckerboard 
is a high-quality, 
reliable alternative to 
the high prices of 
Tandy's expansion 
memory boards." 





When you're finished, all you need to 
do to test the installation is power up 
and watch the memory check in ROM 
display the grand number — 640K. 
From there on, you know you're travel- 
ing in style. 

If you choose the clock/calendar 
option, it's nice to know you don't have 
to sacrifice another of those valuable 
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Software Review... 


Smart Notes Stick 
with Your 
Application 


Everywhere I look I see people using 
those “Post-It” notes by 3M Company, 
the little (usually yellow) pieces of 
message paper with adhesive strip that 
stick to (and peel off of) just about 
anything. When the history of office 
communications is written, I suspect 
Post-It notes will go down with the 
invention of the QWERTY keyboard 
and the dictating machine as revolu- 
tionary products. Indeed, almost every 
piece of paper I get in my office has a 
Post-It note attached. 

The trouble is that this only works 


expansion slots, as you do with the 
Tandy Digi-Mouse/ Calendar board. 
The clock contains two batteries with a 
life expectancy of 20 years and is guar- 
anteed to be accurate to within two 
minutes a year for 10 years. The soft- 
ware controlling the clock is supplied: 
one program to set it and another for 
inclusion in your AUTOEXEC file to read 
the clock each time the machine is 
turned on or reset. 

Believe me, even if you've never 
encountered a time when 128K was a 
limitation, sooner or later you will. 
Many programs now require 256K or 
more to even begin execution — let 
alone room to function at an optimal 
level. When you have enough memory 
to set up a large RAM disk, every disk- 
access intensive application you use can 
be speeded up tremendously. And with 
a clock/calendar installed, you can 
forget about that ridiculous require- 
ment of having to look at your watch 
and enter the information by hand every 
time you reset your computer. 

Power, good design, easy installation 
and a very low price: For all this, the 
Zuckerboard is an excellent choice. 


(Advanced Transducer Devices, Inc., 1287 
Lawrence Station Road, Sunnyvale, CA 
94089; 256K, $109; 512K, $149; clock/ 
calendar option, $39) 


— Kevin Nickols 


when you have something onto which 
the Post-It note can be stuck. And, as 
one who uses a computer most of the 
time for writing, note-taking, 
appointment-making and the like, Post- 
It notes are just no help. 

Enter SmartNotes from Personics 
Corporation, which runs on IBM- 
compatible systems. 

SmartNotes is like Post-It notes for 
a computer. With this program, you can 
“attach” notes electronically to just 
about anything on your computer's 
screen and, thus, flag it for attention 
later on. 

Take, for example, a letter you have 
written. It's a letter you can use over 
again, if you only change a few things 
here and there — references to a loca- 
tion, a certain product and so on. It is 
too much trouble to set it up as a mail 
merge-type document, but you just 
might mess up if you don't know where 
all the various pieces of information are 
buried. Smart Notes, which is a memory 
resident program, is very much like a 
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pad of Post-It notes sitting by your side. 
All you do is press a key combination 
and, lo and behold, you can "stick" a 
note anywhere on the screen. Then, next 
time you go to that letter, all you have 
to do is call up the notes you made in 
the first place and make the changes you 
need. Presto! 

One of the nice things about having 
a Tandy 3000 with a 20-megabyte hard 
drive is that there is a lot of storage 
space. Add a 10-megabyte disk car- 
tridge system, as I have, and you've got 
a heck of alot of storage space. You also 
seem to end up with a lot of files and 
directories that you don't know any- 
thing about! Thanks to Smart Notes, 
you can attach notes to the directories 
(or anything in DOS for that matter) 
just the same as you can attach them to, 
say, letters in an application. Now my 
computer has a neat notated list of 
directories that tells me just what is 
where: no more confusion! 

The really nice thing is that you can 
set up notes with just a couple of key- 
strokes. You also have a lot of options 
as well, such as changing the size or 
color of notes, hiding notes, moving 
notes around the screen and changing 


the *context" of a note. 

Smart Notes does not change your 
application's file, but, instead, writes a 
separate file for the notes themselves. 
Each note then is “attached” to a place 
in your application based on the “con- 
text" of the place to which the note is 
to be pasted. There is a default for this, 
and you can usually leave it alone. But, 
as in the aforementioned example, with 
a DOS directory, the context would be 
so long that it would cover several lines. 
If you sorted the directory, the “con- 
text" would be wrong and the note 
would not appear. So, you edit the 
context. 

You can also page through an appli- 
cation (such as a letter in a word pro- 
cessor) using the page up/down keys 
and Smart Notes only stops when a note 
appears on the screen. If no notes are 
found, you are returned directly to your 
application. 

Several utilities are included to list 
and print notes, open files and the like. 
Overall, Smart Notes has neat and well- 
thought out design and structure. 

There is also a special mode for 
attaching notes to spreadsheet cells. 
This is important because, after all, 


spreadsheets were designed to be recal- 
culated. When you recalculate, how- 
ever, the “context” changes if you are 
using the straight text method of attach- 
ment used by other applications. There- 
fore, Smart Notes has a different way to 
do things, and this is a big advantage, 
too, because it allows you to recalculate, 
move, reformat and change ranges in a 
spreadsheet and keep all the notes in the 
right place. 

SmartNotes is memory resident but 
does not, as far as I have been able to 
test, conflict with other memory resi- 
dent programs — about four of which 
I use together. An important consider- 
ation is that it does not seem to care 
whether it is loaded first, last or in 
between — making it possible to accede 
to the requirements of more finicky 
utilities. 

The manual is well-written and uses 
clear and ample graphics. I recommend 
this program very highly. 


(Personics Corporation, 2352 Main Street, 
Building Two, Concord, MA 01742, 800- 
445-3311, $79.95) 


— Lonnie Falk 


Frustrated With the Tyranny of PASCAL? Tired ofthe Drudgery of BASIC? 


Free Yourself With 
CCSM, the Database Language... on $59.95 


Compare This Routine to Your Present Language, and See the Difference 
READ "NAME: ",NAM,! QUIT:NAM="" 
IF NAM'?2.A1","1A.E WRITE "PLEASE ENTER AS LAST, FIRST MI",! 
READ "TEL $ ",TEL,! IF TEL'?3N1"-"4N WRITE 
SET ^DATA(NAM)-TEL GO RD 
WRITE " NAME",?20,"TELEPHONE #",! SET 
SET NAM-$ORDER(^DATA(NAM)) QUIT:NAM="" 








GO RD 
"NNN-NNNN PLEASE",! GO TEL 


NAM=" "n 
WRITE NAM, ?20,^DATA (NAM), ! 


RD 
TEL 
PRT 
LP 


GO LP 


1-800-257-8052 


In Texas 713-529-2576 
CCSM, the Database Language, sells for $59.95, and comes with full documentation. For 
an additional $15.95, when you order CCSM, we'll send along the "Cookbook of 
MUMPS”, and its disk, (reg. $24.95) containing useful routines and utilities. For charts 
and graphs, order the Graphics disk for $49.95. Multi-user version, $450. Disks are 
non-copy-protected. Requires IBM PC or compatible with 128 K, (Macintosh version 
available. . . $89.95) 


AMEX, VISA and 
MASTERCARD 
accepted by phone 


This simple program accepts, screens and saves names and phone numbers. . . sorts 
and prints them. These six lines of code are an example of the extremely compact, and 
familiar nature of COMP Computing Standard MUMPS, the Database Language 

In lines 1 and 2, READ, IF, WRITE and GO should be easy to follow. The pattern match 
operator “7” filters for the correct input of alpha characters to make a name 

In line 4, SET *DATA creates a permanent global file, with NAM as a subscript. The 
data node is SET to the telephone number. 

In line 6, the $ORDER command gets the next subscript in order, from the "DATA file, 
thereby SETting NAM to the next name in the file. 





MGlobal 
1601 Westheimer Suite 201 
Houston, TX 77006 


RR exp. date 


Order by phone, or clip and mail. 


1-800-257-8052 


in Texas, 713-529-2576 


card no. _ _ 


CCSM, the Database Language. frees you from the tyranny of typed and restrictive 
languages...NO declarations of variables or data files. Look at these Features 
* Full Screen Editor 
* Virtual Memory (routines and variables may be as large as a disk) AMEX 
VISA 
. - il 
Multi User avallable..up to 15 MC CCSM, Cookbook, and disks special package 
B-Tree File Structure CCSM, the Database Language 
8087 and BCD Support 


Graphics disk 
Exceeds 1984 ANSI Standard MUMPS Please add $3.00 for shipping and handling Texas residents add 6 1/8% sales tax 
Transportable from Micro to Mini to Mainframe name < — 


CCSM, the Database Language, is a fast, modern version of ANSI Standard MUMPS, 
developed by COMP Computing. It comes with a 20 year history of development, solving 
database applications. CCSM improves programmer productivity, and efficiency...typical city 
programs are written in 1/3 the code of BASIC or PASCAL. CCSM is an easy to learn 
language and comes with a 250 page manual 


street L š a = 








e. ML uS L š 
IBM PC and Macintosh are trademarks of International Business Machines. and Apple Computer 
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Software 1000/1200/ 3000 


Key Entry III 
Replaces Keypunch 
Machines 


KeyEntry III is a program that lets 
companies take advantage of the large 
number of PCs available to do the data 
entry jobs previously done by keypunch 
or key-tape machines. 

KeyEntry III performs the task of 
making a personal computer into a data 
entry station, suitable for the most 
demanding data entry jobs. The adap- 
tation of the small computer to this task 
means the same machine that is used for 
general business purposes in the day- 
time can be used for data entry at night, 


These and other options (such as 
setting up for use of the European 
standard AZERTY keyboard) are user 
changeable, and the software even 
activates a numeric keypad in the key- 
board's alphabetic portion to simulate 
a keypunch-type keyboard if desired, or 
emulate an IBM 3741 data entry ma- 
chine keyboard. 

After the keyboard, the most impor- 
tant aspect of the environment is the 
“form” in which the data is entered. This 
form is what appears on the screen for 
the operator's reference and is the 
framework for all data entry. Key Entry 
III provides up to 32 record formats 
within each job. 

Since KeyEntry III is primarily de- 
signed for rapid, continous entry of 
similar data, the forms the user creates 
can include a number of tests that sound 
a warning if the entered data couldn't 
possibly be correct; for example, if 
numbers get into the "name" area, or 
too many numbers are entered into the 
*date" field. 


€ 


‘. . . the forms the user creates can include a 


number of tests that sound a warning if the 
entered data couldn't possibly be correct . . ." 


when much of this work is done (enter- 
ing the day's accumulated data). It also 
means the inexpensive, quiet, reliable 
personal computer can replace the old 
keypunch and (nearly as old) key-tape 
machines. 

The most obvious example is the 
numeric keypad to the right side of your 
keyboard. Data entry personnel have 
years of experience with entry pads and 
a non-standard pad is difficult to work 
with. Unfortunately, the arrangement 
on computer keyboards with the ‘7’, ‘8’ 
and ‘9’ keys along the top is not the 
standard that many data entry ma- 
chines use. 

This is where KeyEntry III comes 
into the picture: one of its functions 
switches ‘7’, ‘8’ and ‘9’ with ‘1’, ‘2’ and 
*3' and moves the zero to the NUM LOCK 
key. The program also automatically 
“locks” the keypad to the numeric 
function and places a lot of standard 
function keys around the keypad. 


One thing of prime importance in 
entering data is accuracy. The time- 
honored method of verifying correct 
entry is for either the same operator or 
another to re-enter the data while it is 
checked against the original entry. 
Key Entry III performs this task with an 
option of locking the keyboard each 
time an exception is found in the en- 
tered data until the error is acknowl- 
edged by the operator. 

When verification of a job is inter- 
rupted for any reason, the operator can 
ask the program to indicate the next 
information due to be verified. Key En- 
try HI performs this and other search 
functions to facilitate operator effi- 
ciency. 

The on-screen format for data entry 
may be explicitly specified for each job, 
including field length from one to 77 
and the type of characters acceptable in 
each data field. 

KeyEntry III also permits various 


checks to be made on the entered data, 
such as testing a date for numbers 
outside possible correct values and 
many other user-specifiable tests. The 
setup may also specify certain fields as 
non-skippable — the operator can't 
bypass specified fields by pressing 
ENTER without data. 

Various "duplication" methods can 
be specified for the data fields to speed 
up entering identical or similar data. 

An alternative to the usual two-pass 
verification mentioned above is the 
reverse entry method that can be spec- 
ified with this program. In this method, 
the program will not accept data en- 
tered into specified critical fields until 
they have been entered once in the 
regular manner and immediately re- 
entered in the reverse order. This meth- 
od of verification is especially useful in 
speeding up entry when a lot of data is 
being entered but only a small portion 
of the data is critical. 

One of the more useful methods of 
testing for correct data is to set up a 
table and accept only data that matches 
what is in the table (or doesn't match). 
If you have a number of warehouses, 
each with a different code, the simplest 
method of ensuring a correct entry for 
that field is to build a table of the valid 
codes and specify entries in the field 
must match a valid code located in the 
table. This is easy to do with Key Entry 
III, and the table of two-letter state 
postal codes is already built into the 
program. 

Since this software is designed to 
transfer data from paper to standard 
machine-usable format, it would be of 
little use if it could only record data in 
the standard ASCII format used by 
MS-DOS machines. Much “data 
crunching” is still done by the large 
mainframe computers, and KeyEntry 
III provides an option to store data in 
IBM's EBCDIC, which is the standard 
used by most mainframe computers. 

There are a number of other features 
contained in Key Entry ITI (too many to 
list in a review). They all are designed 
to make data entry fast and accurate 
and are a great advance over the old 
keypunch machines where you could 
only enter the data and re-enter it in a 
two-pass verify with no other method of 
machine testing for its correctness. 

KeyEntry III also keeps a complete 
file of operator statistics to help man- 
agement monitor operator efficiency. 

Although the program I received 
worked flawlessly, there are some cur- 
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ious oversights for a program in this 
price range. In one of the demonstration 
programs, *numeric only" was spelled 
"Unwmgric!ooly)" — a rather curious 
lapse for a program intended to speed 
precise data entry. A number of other 
careless entries were also found. 

A far more disturbing problem be- 
came obvious when I tried to read the 
documentation. There are many pages 
out of order and even more completely 
missing. I called SCS and they informed 
me there had been some trouble with 
their printer, but the problem had been 
corrected. They immediately shipped 
me a new package with a later version 
of the program. 

The new package also had a number 
of pages missing from the documenta- 
tion. I again called SCS and they for- 
warded the missing pages. SCS is aware 
of this documentation problem and 
assured me they are correcting it as 
quickly as possible. 


(Southern Computer Systems, Inc., 2732 
Seventh Ave. South, Birmingham, AL 
35233, phone order 800-533-6879, $895, $35 
for a working demo package) 


— John McCormick 


Software 1000/1200/ 3000 


Timeslips — Because 
Time is Money 


If you’ve ever had the dubious plea- 
sure of paying an attorney or consultant 
for their services by the hour, you know 
the true meaning of the cliche “Time is 
Money.” And for those professionals, 
consultants, engineers, lawyers who bill 
their services by the hour, inaccurate 
recording of their time and other bill- 
able expenditures may result in a loss of 
money. 

Without accurate records and an 
accurate way of tracking projects and 
staff involvement, it is difficult to 
determine which projects are generating 
income, which are profitable, and where 
each employee’s time is dedicated. 

Inaccurate billing also causes lost 


credibility with the client. For the 
professionals for whom “Time is 
Money,” accurate management and 
tracking of time is critical. 

To aid those professionals there is 
Timeslips from North Edge Software. 

Timeslips allows users to track their 
time and expenses with “pop-up” 
(memory-resident) stopwatch screens, 
or enter time and expense information 
from their records; prepare customized 
bills with user-definable billing phrases 
and aged receivables; and generate 
several types of business reports and 
graphs. 

When Timeslips is used as a memory- 
resident program, it pops up over other 
programs at the touch of a user- 
definable key. This lets users access 
Timeslips (to time a phone call, for 
example) and then resume their work 
(word processing, financial analysis, 
etc.) at exactly the point they left it. 

Timeslips can track up to 240 users 
or operations simultaneously and keep 
up to 32,000 individual time or expense 
records per directory. The number of 
directories is limited only by disk space. 

On each “timeslip” — the actual on- 
screen, automated time record — users 





EXPAND THE TANDY 20005 





1808 ORCHARD WAY * RICHLAND, WASHINGTON 99352 


112 


TO 
896K 


OF DOS ADDRESSABLE RAM 


Includes RAMdisk Software at No Extra Cost... 
Add 640K of External RAM Memory to TANDY 2000's* 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 
* x New Products Available Soon x x 
(Send for catalog) 


$495.00 for a 640K bytes of External 
RAM Memory Board (Includes RAMdisk 
Software) 

Call about our Trade-in Exchange option 
if you already use Tandy's 128K External 
Memory Board. 


for ordering (509) 627-5291 
and information call: Hours 9:00-5:00 PST 





Cost: 





. We accept Check, MO, Visa, Mastercard 
terms: Add 7.3% sales tax in Wash. 
Add $3-shipping/handling, $5 foreign. 


TANDY 2000* IS A TRADEMARK OF TANDY CORPORATION 
RAMaisk is a Random-Access-Memory based disk 
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YOU ALREADY HAVE 
HALF OF THE BEST 
WORD PROCESSING 
SYSTEM IN THE WORLD 


SA9 


more, your MultiMate, 
Display Write, WordStar, pfs:WRITE, 
VolksWriter, Writing Assistant or other WP 
Software! can instantly I8) +J] fourteen 
— columns of text, (Š automatically 
create outlines, calendars MAZEPA 


` 


Nena contracts, 


ays, scripts, footnotes?, 





Powerlext 


1 Any other MS-DOS or ASCII WP Software 


{λογο FORMATTER 
page or end of your document N 


TO ORDER, CALL OR WRITE: » BEAMAN PORTER, INC. 
A 417 HALSTEAD AVENUE 


HARRISON, NY 10528 
(800) 431-0007 
(914) 835-3156 IN NEW YORK 





"Add $5 for Shipping and Handling. 


can specify billing rates, project descrip- 
tion, projected completion time, refer- 
ence code, date and time. Users may 
customize the headings on the timeslip 
to fit their profession or application. 

In addition to tracking time expendi- 
tures, Timeslips allows the user to track 
expenses by each project and rebill, if 
appropriate, these expenses to the 
client. 

Individual timeslips can be grouped 
together by project, client or any other 
criteria to generate appropriate billings. 

When generating a bill, Timeslips lets 
the user format custom billings from the 
data contained on the timeslips. Any 
data shown on the bill can be specified. 

In order to determine if their business 
is running efficiently, if they are spend- 
ing more time on flat fee work than the 
flat fee justifies, if their hourly rate 
covers overhead and leaves enough to 
earn a living, if they are going over 
budget on a project, or if their highest 
paid employee brings in the most rev- 
enue — Timeslips produces several 
reports and graphs that may be sent to 
a screen, printer, disk file (in ASCII 


Since it's not practical to carry your 
MS-DOS computer with you as you 
travel, Timeslips contains a nifty low- 
tech way to note your activity and 
expenditures until you return to your 
computer. Little timeslips that replicate 
your Timeslips data entry screen are 
provided on preprinted 3M Post-It-type 
sheets. 

There's good and not-so-good news 
regarding operating Timeslips. The 
good news is that North Edge Software 
has listened to the early users of the first 
release of the program and has revised 
the program to allow it to be applicable 
to many professions. The screens and 
reports can be customized to reflect the 
terminology and reporting needs of the 
user. The flexibility and adaptability of 
Timeslips is impressive, which brings up 
the not-so-good news. 

It takes awhile to familiarize yourself 
with the system and to customize the 
program by loading your company, 
customer and billing data and format- 
ting the reports and invoices to meet 
your needs. This is now complicated by 
the current situation where the instruc- 





“If you bill for your time and are manually 
tracking your business’ time and material 
expenditures, the payback for Timeslips will be 


virtually instantaneous.” 





image format), or spreadsheet or data- 
base programs (such as Lotus 1-2-3 or 
dBase III). These reports and graphs 
include: 

* Detail Report — Details the entire 
content of each timeslip selected includ- 
ing subtotals and grand totals. 

€ Summary Report — Four types: 
user totals, account totals, activity 
totals and account balance summary 
with aging. 

€ Graphics — Bar graphs and pie 
charts with up to eight levels of infor- 
mation. 

e Client Billing Worksheet — sum- 
marizes new activity, unbilled timeslips 
and expenses, unposted payments, 
aging history and most recent bill date 
and balance. 

€ Client List — Alphabetically 
sorted by name with address, phone 
number and client number. 

€ IRS Report — Helps justify a 
computer as a business expense by 
keeping a log of business usage. 


tions for the new version (2.1) are 
contained on a RERDME file on one of the 
disks. It is necessary to go back and 
forth between the original documenta- 
tion and the 21 pages printed by the 
upgrade. However, North Edge has 
assured me the new manual will be 
released by the time this review is 
published. 

On-screen help is available at any 
time to the user, and prompts help the 
user to determine the various options 
available. If the registered user is still 
having difficulty, North Edge has free 
telephone customer assistance availa- 
ble. Once the user has familiarized 
himself with the program, loaded it with 
his data and customized Timeslips to his 
needs, operation is quite easy. 

The overall quality of the program is 
excellent. Since this program retails for 
only $99.95 and has the operating 
appearance of some of the more expen- 
sive business programs, making the 
decision to purchase Timeslips is easy. 


If you bill for your time and are man- 
ually tracking your business' time and 
material expenditures, the payback for 
Timeslips will be virtually instantane- 
ous. 


(North Edge Software, P.O. box 286, Ham- 
ilton, MA 01936, 617-468-7358, $99.95) 


— Bruce Rothermel 


Software 1000/1200/ 3000 


Wishbringer — A 
Clever and 
Challenging 

Interactive Fiction 


Τα like for people to know I don’t go 
around saving beautiful princesses all 
the time, though I must admit it makes 
an interesting change of pace from my 
normal daily routine. 

Unlike many other Adventure games 
concerning medieval quests, Wish- 
bringer started me in modern times as 
a lowly postman working for the op- 
pressive post master of the town of 
Festeron. My latest assignment is to 
deliver an important letter to the Mag- 
ick Shoppe far outside of town. My 
boss, Mr. Crisp, informs me (in his most 
condescending tone) that should this 
piece of mail not reach its destination 
by 5 p.m., my life expectancy will 
shorten drastically. (He actually uses 
much harsher language.) 

I know about the old adage “Neither 
rain nor snow nor sleet nor gloom of 
night . . .", but no one should have to 
go up against the town librarian’s 
deranged poodle! However, with a little 
resourcefulness, I outwitted the fero- 
cious little canine. All the rest of the 
long way to the Magick Shoppe, I 
explored the surrounding countryside, 
much to the consternation of Mr. Crisp, 
who could evidently detect my goofing 
off from miles away! He also had very 
clever ways of conveying his displeasure 
to me regardless of how far away I was. 

Reaching the Magick Shoppe well 
within the allotted time, I found out the 
significance of the letter which was my 
charge. I was unsure about whether I 
liked the store's strange proprietor or 
the mysterious gift she offered me. 

As weird as the aforementioned hap- 
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penings were, even stranger encounters 
lie within the wonderfully exciting and 
funny world of Wishbringer. Not the 
least of which was a transition from the 
modern world to the days of old and the 
dangers which awaited therein. Of 
course, there was also a quest to be won 
— it wouldn't be an Adventure game 
otherwise. 

Though this is a totally-text Adven- 
ture with no graphics, it is one of the 
most thoroughly enjoyable pieces of 
interactive fiction I’ve come across. The 
smoothness with which the plot un- 
folds, the vivid descriptions, challeng- 
ing obstacles and clever humor make 
Wishbringer a fun diversion which can 
entertain both young and old for many 
evenings. 


(Infocom, 125 Cambridge Park Drive, 
Cambridge, MA 02140 617-492-1031, 
$39.95) 


— Rick Boozer 


Software 1000/1200/3000 


Media Master Plus 
Helps Bridge the 
MS-DOS CP/M 

Compatibility Gap 


I bet everyone wishes they could 
"master the media." Just think, your 
name in lights, newspaper, television, 
radio. As I opened the package I had 
received in the mail earlier, I imagined 
I would find a book and maybe a 
cassette tape called Media Master 
which would lead me to instant star- 
dom. Instead, I found a software pack- 
age Media Master Plus by Intersecting 
Concepts encased in a nice plastic 
portfolio containing a 62-page manual 
and a single diskette. Oh well, stardom 
must wait. 

Media Master Plus is a disk-to-disk 
format conversion utility. The “Plus” 
portion adds an interesting module 
called ZP/ EM from Livingston Logic 
Labs. This module allows you to emu- 
late Digital Research's CP/ M operating 
system on your MS-DOS computer. 

Media Master comes in several ver- 
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sions for different *host" computers. I 
reviewed the version for the IBM-PC 
and compatibles. System requirements 
are 192K (256K on a Tandy 1000), one 
floppy drive and another floppy, a hard 
disk or a RAM disk with at least 128K. 
A printer is optional. 

The program comes set up for two 48- 
TPI double-sided drives. You may select 
up to 16 physical drives and assign them 
any logical drive letter. The drives may 
be set up as 48- or 96-TPI, single- or 


double-sided, high-density, or system 
drives. A system drive is a hard disk or 
a RAM disk. 

The program is completely menu- 
driven and the manual is rarely needed. 
Media Master Plus uses a filespec 
convention identical to that of MS- 
DOS and wild card characters are 
allowed. 

You might find yourself asking why 
a program like Media Master Plus is 
even needed. It serves three purposes: 





Introducing SmartNotes."" 
Type comments and 
assumptions on bright 

little notes and attach 

them to rows, columns and 
cells. When they drill you about 
your numbers, you'll have the 
answers at your fingertips. 

And notes aren't strictly for 
spreadsheets. Stick them to data 
base records, memos, letters and 
reports. Just about anywhere. 

SmartNotes. Simply the best 
annotation tool for 1-2-3™ and 
Symphony." And a whole lot more. 

Available directly from Personics 
and dealers nationwide. Just $79.95. 


protected. In MA, call 800-447-1196. 
Nationally: 800-445-3311. 





Stick it 
toLo 


Stick pop-up notes to individual cells 
in 1-2-3 and Sympbony* 


60 day money-back guarantee. Not copy 





"Also works with Multiplan,” SuperCalc™ and VisiCalc.™ 
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transfer of files between MS-DOS disks 
and any of approximately 140 other 
CP/M disk formats; transfer of files 
from one CP/M format to another 
using the host computer; and CP/M 
emulation on the host computer. 

You may use programs such as Word- 
Star and dBase II on MS-DOS and CP/ 
M machines and easily transport your 
data from one to the other. 

CP/ M has been around for years and 
is considered by many as the defacto 
standard eight-bit 8080/ Z-80 operating 
system. Programs that run under CP/ 
M are easily transported from one CP/ 
M machine to another just as MS-DOS 
— almost. Although the operating 
system is standard, the disk format is 
not. Only 8-inch CP/M disks can be 
read on any CP/M computer using 8- 
inch drives. The smaller 5/4-inch for- 
mats were left scattered to the wind. 
Thus, the 140 possible choices. Media 
Master Plus now allows you to move 
the software you need to your own disk 
format. 

Media Master Plus allows you to 
emulate an eight-bit CP/M environ- 
ment on your 16-bit 8088 computer. 
This allows you to run a host of CP/ 
M software on your Tandy 1000 as in 
my case. You no longer have to throw 
away your old software when you up- 
grade to a 16-bit computer. 

Media Master Plus contains its own 
command line processor and batch file 
operation mode. The command line 
processor lets you start the program and 
specify your menu choices in one step. 
An example would be MM 2ba)NB8 
ENTER. This starts up the program, 
selects Option 2 to format a disk in 
Drive B using Selection A from the first 
format option menu. 

Included on the Media Master Plus 
diskette are four files used to emulate 
the CP/M operating system. They are 
identical except for the terminal emula- 
tions they perform. One contains no 
special terminal emulation while the 
other three are for a Zenith H19, an 
Osborne and a Kaypro teminal. 

The eumlation package will appar- 
ently run most CP/M software. The 
following types of programs can, in 
general, be run under ZP/ EM: 


€ Non-system utilities: assemblers, 
editors, compilers, interpreters and 
applications programs. 

€ Games — most BASIC and compiled 
BASIC 
The following cannot run under ZP/ 
EM: 


€ System- or hardware-dependent util- 
ities: DUMP, MOVCPM, SYS and direc- 
tory utilities. 

9 Programs that directly access or 
modify any BIOS data tables, the 
BDOS or CCP. 

€ Programs that set up their own con- 
sole interrupt handlers, clock inter- 
rupt handlers, etc. 

€ Programs that use Z-80 opcodes. ZP/ 
EM currently supports only 8080 
opcodes. 


In order to test all these features I 
enlisted the help of a friend and his 
trusty Tandy Model 4P. Armed with 
this, Radio Shack's CP/ M Plus, Mon- 
tezuma Micro's CP/M and a version of 
WordStar for CP/M, I embarked on 
my perilous tests. 

First, I logged in a couple of disks and 
read their directories. This worked 
without fail in standard CP/M format. 
Next I formatted a CP/M disk and 
copied an old MS-DOS WordStar file 
onto this newly created disk. My friend 
was able to read this file using his CP/ 
M WordStar with no problem. The last 


I-Hour 
Telecomputing — A 
Crash Course in 
Communications 


Telecomputing is using your compu- 
ter and a modem to communicate with 
other computers via the phone line. /- 
Hour Telecomputing is a novice-level 
book designed to be read in about an 
hour and is subtitled A Crash Course in 
"On-Line" Computer Communica- 
tions. This book is for those who know 
nothing about telecomputing and want 
to find out about it quickly. It is concise, 
clear, covers the essentials, and contains 
only five chapters and four appendices. 
Do not let its size mislead you into 
thinking it's not worth reading. This 
book contains alot of valuable informa- 
tion even for seasoned veterans. 

The first chapter covers what you can 
do with your computer over the phone 
and includes a very good overview of 
the vast number of available services, 


thing I did with these disks was to move 
files back and forth between the two 
different CP/M formats. This worked 
perfectly. 

Now, the ultimte test. Can I run CP/ 
M software on my Tandy 1000? First I 
attempted to run WordStar. This was 
my first failure. Apparently, the version 
of WordStar we were using was written 
using Z-80 opcodes because I received 
an "invalid or Z-80 opcode encoun- 
tered" error. After that I tried running 
the standard editor (ED) and assembler 
(RSM) modules of CP/M and they ran 
fine. 

Media Master Plus, by Intersecting 
Concepts, is an ideal package for people 
having access to both MS-DOS and 
CP/M computers. It is extremely ver- 
satile and the emulation package is 
worth looking into. The cost of this 
package is quite trivial compared to its 
many benefits. 


(Intersecting Concepts, 4573 Heatherglen 
Ct., Moorpark, CA 93021, $59.95) 


— Larry Birkenfeld 


such as databases, shopping, banking 
and local bulletin boards. This intro- 
duction also covers what you need to get 
started: a modem, interface card, ca- 
bles, software, etc. 

Chapter Two contains one of the best 
explanations of serial communications 
I have come across in the three years I 
have been using telecommunications 
technology. Here you will find every- 
thing you need to know about parity, 
stop bits, duplex and all those other 
technical terms associated with tele- 
computing. After reading this chapter, 
I felt more at home with these terms 
associated with the use of modems, 
telephones and computers. 

The next chapter is the next logical 
step past serial communications — the 
modem. This chapter clearly explains 
what a modem does and all the myriad 
of features available such as auto-dial, 
auto-answer, Baud rates and acoustical 
versus direct-connect. The chapter ends 
with sound recommendations on choos- 
ing the modem that is right for your own 
application. 

What good is a modem without soft- 
ware to control it? Chapter Four con- 
tains the answer and much more on 
what role software plays and how it can 
be used. Many more telecomputing 
terms are explained, such as uploading, 
downloading, XMODEM and ASCII 
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codes. The authors again give sound 
advice concerning choosing the right 
software for your needs and the differ- 
ences between the countless types of 
communications programs available. 
While this chapter does not recommend 
a specific product, enough information 
is given to make an intelligent choice. 

The last chapter gives a brief listing 
of available services and a sampling of 
names and addresses where more infor- 
mation can be obtained. While not 
comprehensive, there is enough detail to 
give the reader a taste of what some of 
the major services such as CompuServe, 
Delphi and The Source are all about. 
One of the appendices contains a more 
complete listing of services available, 
where to contact them and the cost. The 
chapter ends with some useful tips to 
remember when using some of these 
services. 

The four appendices contain a glos- 
sary of terms, ASCII codes, the DB-25 
connector and its pin functions and 
listing of telecomputing resources. 
These appendices complement the rest 
of the book very nicely and serve as a 
reference for later use. 

Overall, this book contains all the 


information needed to get started with 
telecomputing. The only regret I have is 
the price tag of $19.95. The book is 198 
pages and not much larger than the 
popular paperback novels. It looks as if 
it was written and printed on a home 
computer and contains no photos and 
very few drawings or illustrations. 
Visually, it is not too appealing, but it 
is well-organized with a great index and 
table of contents. 

As an avid reader of computer books, 


Software 100/200 


X-TEL Adds 
XMODEM 
Communication to 
Tandy 100/200 


Sigea Systems has developed a ter- 
rific communications package for 
Tandy Models 100 and 200. X-TEL 
works as a stand-alone package, or as 


this one is a bit over-priced for me. But, 
if you want to learn about telecomput- 
ing quickly and can spare the cash, /- 
Hour Telecomputing can get you 
started. 


(Authors: Roger C. Alford, Robert Retelle 
and Thomas Wnorowski. Published by IM- 
Press, 1412 Rosewood, Ann Arbor, MI 
48104, $19.95 ) 


— Tim Birtcher 


a sidekick to Telcom or Sigea's MS- 
DOS program, Telecommuter. Χ- TEL 
allows uploading and downloading of 
files using XMODEM protocol and 
adds some simple text editing functions. 
In addition to document (.D0O) files, 
X-TEL transfers BASIC language files 
(.BA) and machine language programs 
(.CO). Spreadsheet files and other 
special data files that are equivalent to 
-CO files can also be transferred. 
Although the program uses only 
2,800 bytes, a system with 16K min- 
imum RAM is recommended. The soft- 
ware comes on cassette and on a floppy 
disk, and can be downloaded to the 
Tandy 100 or 200 by either method. 
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Submitting Material To PCM 


Contributions to PCM are welcome from eve- 
ryone. We like to run a variety of programs that 
will be useful/ helpful/fun for other Tandy Portable 
and MS-DOS computer owners. We now support 
the Tandy portable models 100, 200 and 600 and 
the Tandy 1000, 1200, 2000 and 3000 MS-DOS 
computers. 

Program submissions must be on tape or disk, 
and it is best to make several saves, at least one of 
them in ASCII format. We're sorry, but we do not 
have time to key in programs. All programs should 
be supported by some editorial commentary 
explaining how the program works. Generally, 
we're much more interested in how your submis- 
sion works and runs than how you developed it. 
Programs should be learning experiences. 

Pay for submissions is based on a number of 
criteria. The rate of remuneration will be estab- 
lished and agreed upon prior to publication. 

For the benefit of those who wish more detailed 
information on making submissions, please send an 
SASE to: Submissions Editor, PCM, The Falsoft 
Building, P.O. Box 385, Prospect, KY 40059. We 
will send you comprehensive guidelines. 

Please do not submit programs or articles 
currently submitted to another publication. 

If you feel qualified to review software and/or 
hardware products for computers covered in PCM, 
send us your name, address and phone number; we 
will send you a questionnaire form and a copy of 
our reviewer guidelines. 
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For Your MSDOS Computer 
Tandy 1000/1200/2000/3000 and PCs 
RAMDISK ($49) 
Use spare memory to simulate one or more super—fast 


disks. Any size.  Greatly speed up existing applications. 
Appears to programs as a disk, but gives instant 
access. Highly efficient, compact, and thoroughly tested. 
Includes program to install and change RAMDISK size, 
and RAMDISK 1/O access report. 


FULLBACK ($88) 


A Perfect File Backup System !!! 


Finally, an easy to use backup program that keeps exact 
images of your files on backup floppies, cartridges, or 
hard disk. Automatically backup one, several, or ALL 
subdirectories. Backup modified only, or ALL files. 
Keeps perfectly organized backups — backup structure and 
file format are identical to original. Supports backup by 
date, multiple backup copies, large files (up to 32MB). 
Far superior to DOS BACKUP, easier to use, and much 
more reliable. Absolutely a MUST for hard disk users. 


HIP—POCKET υ 


The ALPS Hip—Pocket Helpers is a collection of 
powerful and easy to use utility programs. They 
include a slick Directory Tree, a sorted 5—across directory 
display, a sophisticated keyboard substitution aid (only 5K 
of RAM), utilities to search through ALL directories for 
file names or even strings within a file, and much, much 
more. 29 utilities in all. Call or write for info. Price 
and performance you can't find elsewhere. 


ALL ALPS Software is Fully Guaranteed !!! 


Full Customer Support on our Hotline — 303—687—1442 
Call or Write for our complete catalog of products. 





ALPS 
1502 County Road 25 
Woodland Park, Colorado 80866 


800—232—ALPS (Toll-Free) 





X-TEL reserves 2.7K RAM in addi- 
tion to the space occupied by the two 
program files, since this space is needed 
only during program execution. Be- 
cause X-TEL occupies a non- 
relocatable portion of high memory, it 
can be used in conjunction with other 
low-memory machine language pro- 
grams. 

One of the problems I have with my 
Tandy 100 is saving machine language 
(.CO) files. The BASIC and text files can 
be transferred between the 100 and my 
desktop computer, but certain machine 
language files must be saved on tape. 
With X- TEL, the need to save programs 
on cassette tape is history since any file 
can now be transferred to a disk on a 
desktop computer. 

I use my 100 frequently for business 
trips and consume every bit of the 32K 
RAM for my programs and notes. If my 
Model 100 is approaching maximum 
memory capacity and I want to transfer 
a BASIC program, sometimes I don't 
have enough room to translate the file 
into ASCII and send the file to the hard 
disk. With X- TEL's XMODEM pro- 
tocol, I can save the file directly to the 
remote computer in BASIC language and 
move it back to the 100 without wasting 
time and memory converting either file 
into ASCII. 

X-TEL has some useful online fea- 
tures. If you've forgotten the name or 
extension of a file to upload, a function 
key combination allows you to see the 
names of files in RAM. Also shown are 
the file sizes and amount of free mem- 
ory. This is very useful if the file to be 
downloaded is large and you're not 
certain if there is enough room in the 
portable to accept the entire file. If more 
space is needed, another function allows 
you to delete files. 

You even have access to the text 
editor while online in terminal mode. 
Characters coming from the remote are 
held in a 64-character buffer while 
working in the text mode. The X- TEL 
issues an XOFF after the first 40 char- 
acters and, if the software for the remote 
computer supports XON/XOFF data 
flow control, no data is lost while 
editing a file. 

Using X- TEL on my Model 100 and 
the "freeware" program Procomm on 
my Tandy 1200, I tried several machine- 
to-machine transfers. I was very im- 
pressed with the speed of transfer and 
the ability to transfer BASIC and ma- 
chine language files back and forth with 
no problem. When X-TEL completed 


the successful transfer of a file using 
XMODEM protocol, it beeped to let 
me know it was ready to download 
another file. 

This is one of the most useful pro- 
grams I have seen for the Tandy porta- 
bles, and X- TEL certainly eliminates a 
lot of the frustration I encounter with 
cassette storage. Now everything 
transfers quickly and error-free between 
my laptop and desktop computers. 


(Sigea Systems, Inc., 19 Pelham Road, 
Weston, MA 02193, sales 617-647-1098, 
applications hotline 617-647-1099, $50 plus 
$5 S/H) 


— M.J. Batham 
Software 1000/1200/3000 


Electric Envelope 
Aids File Transfer 


Finally finished! Now, I will just take 
my spreadsheet, graph and document 
and drop them in the old "electronic 
mail box" and in no time flat they'll go 
from coast to coast to the home office. 
What's that? You can't deliver my mail! 
What happened to that old saying “The 
mail must go through"? I see, you only 
accept ASCII numbers from 32 to 127. 
What is this ASCII stuff anyway? Oh! 
A special code computers use for trans- 
mitting information over data lines. 
You say I need an envelope, too? 

At that very instant an idea was born. 
What about an "electronic envelope" 
that could hide my data and fool this 
stubborn computer mailman into be- 
lieving he now has a legitimate piece of 
mail. MCTel to the rescue. Their Elec- 
tronic Envelope software package is 
made to do just that. 

Electronic Envelope is so simple to 
use it requires no instruction manual. 
You get a disk and a postcard-size set 
of instructions containing an explana- 
tion of the program's two commands, 
Insert and Remove, plus a note that 
you can type Help to receive additional 
instructions from the four document 
files contained on the disk. Believe me, 
this is more than sufficient. If you can 
breathe, you can use Zlectronic Enve- 
lope. 

Spreadsheets such as Lotus 1-2-3 and 


Symphony, graphics files, and some 
word processors such as WordStar save 
data using codes outside the normal 
printable ASCII range or in binary 
form. Most electronic mail systems 
transmit only data within the printable 
ASCII range and cannot handle these 
special file formats. This is where Elec- 
tronic Envelope takes over. It encodes 
binary data and ASCII data outside the 
printable range to appear as printable 
ASCII text to electronic mail systems. 
The XMODEM protocol used by many 
telecommunications programs works in 
a similar manner except the data is 
encoded and decoded in one step as it 
is transmitted and received at the dis- 
tant terminal. Electronic Envelope 
encodes the file and it remains that way 
until someone takes it from their mail- 
box and “removes” it from the “enve- 
lope." 

As stated before, Electronic Envelope 
is extremely easy to use. Type Insert 
and you are prompted for the filename 
to place into the envelope (encode). You 
are then asked to provide an output 
filename to be used for the encoded file. 
This output file contains its own check- 
sum and is about 40 percent larger than 
the original file. It can now be left in an 
electronic mailbox. 

The recipient of the encoded file must 
also have a copy of Electronic Envelope 
to *remove" (decode) the file from the 
envelope. Typing Remove prompts you 
again for an input and output filename. 
Upon removing the file from the enve- 
lope, a second checksum is calculated 
and compared with the original to verify 
the file was received correctly. The 
output file created by the Remove com- 
mand is identical, provided the check- 
sums match. 

This completes the mail cycle. Our 
electronic mailman has been satisfied 
and our spreadsheet, graphics file and 
document made it to its destination in 
one piece and on time. An added benefit 
of Electronic Envelope is confidential- 
ity. The encoding process creates an 
unintelligible output file. Only another 
owner of Electronic Envelope can re- 
move the file from its envelope in order 
to read it. 

For users of electronic mail systems, 
whether it be in-house or otherwise, 
Electronic Envelope is a must. 


(MCTel, Three Bala Plaza East, Suite 505, 
Bala Cynwyd, PA 19004, disk $49.95) 


— Larry Birkenfeld 
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ΠΠ New Products 


The following products have recently been received 





by PCM, examined by our magazine staff and 
approved for the PCM Seal of Certification, your 
assurance that we have seen the product and have 
ascertained that it is what it purports to be. This 


month the Seal of Certification has been issued to: 





Copy II PC, software-based 
backup utility. Allows you to 
back up most copy-protected 
software. Includes disk drive 
speed test. Requires Tandy 1000, 
1200 or 3000. Central Point Soft- 
ware Inc., 9700 SW Capitol 
Highway, Suite 100, Portland, 
OR 97219, (503) 244-5782, $39.95 
plus $3 S/H. 


Copy II PC Option Board, re- 
placement disk controller board. 
Allows you to make exact back- 
ups of nearly all copy-protected 
software, including programs not 
copiable by software-based utili- 
ties. Requires Tandy 1000, 1200 
or 3000. Central Point Software 
Inc., 9700 SW Capitol Highway, 
Suite 100, Portland, OR 97219, 
(503)244-5782, $95 plus $3 S/H. 





Hip-Pocket Helpers, a collection 
of 29 utility programs for MS- 
DOS machines. Requires Tandy 
1000, 1200, 2000 or 3000. ALPS, 
1502 County Road 25, Woodland 
Park, CO 80863, (303) 687-1442, 
$79 plus $3 S/H. 





Inside the Model 100, a book by 
Carl Oppedahl covering ad- 
vanced assembly language and 
BASIC programming and hard- 
ware for the Tandy 100. Webber 
Systems, Inc., 8437 Mayfield 
Road, Chesterland, OH 44026, 
$19.95. 


Map Builder, generates, displays 
and prints maps of the continen- 
tal United States with different 
colors or shading based on statis- 
tical data. Includes coordinates 
of over 72,000 U.S. towns and 
cities. Requires Tandy 1000, 1200 
or 3000 and graphics. Geosoft 
Corporation, 38 Park Street, 
Vernon, CT 06066, (203) 875- 











7782, $250 plus $5 S/H ($150 
additional for “county bound- 
aries" supplement). 


PC Tools, utility programs for 
MS-DOS computers. Includes 
resident DOS utilities and deleted 
file recovery. Requires Tandy 
1000, 1200 or 3000. Central Point 
Software Inc., 9700 SW Capitol 
Highway, Suite 100, Portland, 
OR 97219, (503) 244-5782, $39.95 
plus $3 S/H. 


Personal Profile, a specilized 
database application for filing 
information about people. Han- 
dles up to 719 people on a single 
disk. Requires Tandy 100 and 
Disk/Video Interface. Software 
Systems of Atlanta, P.O. Box 
4251, Atlanta, GA 30302, $25. 


Ready!, resident outline proces- 
sor. System for organizing notes, 
ideas and facts. Software resides 
in memory and can be called up 
while using other programs. Re- 
quires Tandy 1000, 1200 or 3000. 
Living Videotext, Inc., 2432 
Charlestown Road, Mountian 
View, CA 94043, (415) 964-6300, 
$99.95. 


Srike, dynamic spelling checker. 
Alerts you to possible misspelled 
words as you type from within 
many popular word processors. 
Requires Tandy 1000, 1200 or 
3000. S & K Technology, Inc., 
4610 Spotted Oak Woods, San 
Antonio, TX 78249, (512) 492- 
3384, $29.95. 


TRS-80 Model 100 — A User's 
Guide, goes beyond the standard 
operator's manual for a guided 
tour of the features of the Tandy 
100. Tab Books Inc., Blue Ridge 
Summit, PA 17214, $15.50. 


By awarding a Seal, the magazine certifies the 
‘program does exist, but this does not constitute any 


guarantee of satisfaction. As soon as possible, these 
hardware or software items will be forwarded to 
PCM's reviewers for evaluation. 
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* 640K Memory Upgrade Board 

with Real Time Clock .... Only $189.95 
* Serial Interface Board 
29.95 


* Parallel Interface Board .... Only 


* Hayes Compatible 
300/1200 Baud 
Deluxe Modem Board .... Only 189.95 


Logitech Mouse - uses standard serial port . 
Logitech Mouse with PC Paint program 


Monitors - Zenith, CGS, Taxan 
Call for details 


Star SG-10 printer 
Teac, Panasonic D.S.D.D. ἀτίνες................... 119.95 
10 discs in an attractive styrene case 


... Only $ 99.95 
129.95 


Deluxe keyboard drawer 3%" high computer platform 
with sliding keyboard drawer. Ball bearing glides 
and locks. Enamel finish to match your PC 


IBM COMPATIBLE ΡΟΧ-Η 


IBM Compatibility at sensational prices!! 
Starting at only $685.00 
Complete, deluxe 640K system includes 150 watt power supply, 
2 Teac floppies, printer and serial port, 
clock, amber monitor and many other extras. 
$1080.00 
20 meg hard drive - $525.00 
We maintain a library of quality public domain software 
for purchasers of our computer systems — text processor, 
data base manager, spread sheet, communication, 
utilities and entertainment software. Call for details. 


MS-DOS SOFTWARE 


DAC ACCOUNTING - General ledger, receivables, 
payables, inventory. Unbelievable bargain at only . . $69.95 


MARK DATA - Our popular ledger system 
with detailed operating manual. 


DBASE III - Ashton Tate’s powerful database 

Ynanagemerit SVSUSITI-. « μμ. $389.00 
The Twin - Works exactly like Lotus 1-2-3 

Ouistandiog vali sce RG αμ οωσι $145.00 


VP Planner - Another great 
Lotus look-alike. Only $99.95 
CoCo Util II - A valuable utility program that allows you to 
transfer Tandy CoCo disc files to your MS-DOS machine. You 
may also transfer MS-DOS files to a Color Computer disc. Save 
countless hours of typing. ........ New Version $39.95 


or upgrade from Version I $12.95 
including shipping. 
— Mark Data Products 
24001 Alicia Parkway, #207 
Mission Viejo, CA 92691 (714) 768-1551 


SHIPPING: All orders under $100 please add $2 regular, $5 air, All orders over $100 please add 3% regular, 
8% air. California residents please add 6% sales tax. Orders outside the continental U.S., check with us for 
shipping amount; please remit U.S. funds. Software authors — contact us for exciting program marketing 
details. We accept MasterCard and VISA. Distributed in Canada by Kelly Software. 





Only $69.95 












li - οι ο [ΠΕ ΙΙ ΗΕ] 
BAR CODED LISTINGS 


iP ramcn TTY BU LU HR HUM Hd d LOT MI 


Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 


pitched beep whenever it's 
ready for you to scan a line. 
After a line has been success- 
fully read, you'll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 
the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 





Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .D0 extension. 

The final step is to convert 
the .DO text file to a normal 
BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LOAD” TEST 
.D0^ (if the program name 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC’s com- 
pressed format (.BA exten- 
sion), you'd type SAVE’ TEST” 
(if the program were named 
TEST). You may then kill the 
-DO file with KILL “TEST.DO”. 





BAREAD 2.1 


1000 ! -** Initialize www 
1010 ON ERROR GOTO 1040 
1029 CLEAR 1990 :MAXFILES-2 
1930 GOTO. 1959 


1940. LF) ERR-5.THEN RESUME NEXT 


1050 ON ERROR GOTO Ø 
1069 RUNM "B30F9" 


19070 OPEN "WAND:".FOR INPUT. AS #1 


1989 Ucs--1 


1999 PCS-"0123456789ABCDEFGHTIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 


1109 DIM RW$(36) 


1110 ERS$(l)e"You must scan line l first! 


1129 ER$(2)5"You've SKIPPED à line!" 
1130 ERS(3)2"You've ALREADY SCANNED this. 


line!" 


1149 (ERS (4)="Code not PCM2/39 format!" 


1159 ER$(5)="Command not applicable here | 


1169 ER$(6)="You cannot skip this line!" 


1179 ERS(7)se"Selected resume file not: dui 


computer!" 


1189 '.*** Read Reserved Words List. 


1199 DATA BEEP,CLEAR,CLOSE,DATA,DEFDBL;D': 


EFINT,DEFNG,DEFSTR, ELSE, GOSUB, GOTO ΑΗ] 
1200 DATA INKEYS,INPUT,INSTR(,;LCOPY,LEFT : 


Reader v2.1" 


(217,16) ,1,B 


SCU/LINEC;LOADM,LPRINT,USING,MAXFILES:.: 
1210 DATA MIDS(,NEXT,PEEK, POKE, POWER, PRE ' 
SET(,PRINT,READ,RESTORE,RETURN,RIGHTS(. 
1220 DATA. SOUND; SPACES Ci STRINGS C, THEN) 
|1239 FOR I%=1 TO 36:READ RWS(IS):NEXT Te 
1249 ' ΝΑ Procedure Begins Here www 
1250. CLS:PRINTQAA, "PCM Bar Code Program. n 


1269. LINE(29,4) -(219,18) , 1, B: Vis 6): i | 
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71279 NNSZl 7 
1289 60908. 1669: ΤΕ ERGO. THEN: G0SU 1629 
|/:GOTO 12890. 


[ioi IF LL&-9 AND ' INSTR (YN, 11$). THEN j 


JERS=5]; GOSUB 1629: GOTO 1289; 


/,GOTO 1829,1899,1989,2050 . 

/1319 IF LL4-1295 THEN 1359 | 

|/1329 IF LLS«ONN& AND NN&-1 THEN ER$-1: 60 
SUB 1620:GoTO 1289 


1339 IF LLe«NN& THEN BRE-3: -GOSUB 1629:60. 


πο 1289: 

/11349 IF LLSSNN&. AND NN$51 THEN ER&c2:; GOS 
UB 1629:GOTO 1289. 

1350. 3LS-RIGHTS (ILS, 19): 

1369 IF LL$-1 AND NN$»20 THEN GOSUB. 1789 
1379 CLS=CLS+1L$ HH 

1389 FOR 1%=1 TO LEN(CLS$) 

1399 CHS=MID$ (CLS I$, 1) 

(1409. IF CH$-"*" THEN COSUB 1519: TF NL 
/& THEN 1479 ELSE GOTO 1449 

/|1419 IF CH$-"/" THEN GOSUB 1559: IF NL 
/& THEN 1478, ELSE GOTO 1449. i 


U16200 τε CHS". m THEN Lao eNO HORA GOT: 
(0/1459. 
| 1439 AF ‘CHS: SAY AND CH$«-"Z" AND NOT 
(ο) THEN. ‘CHS=CHRS (ASC(CH$) 432) i 
(1449. XXS4XX$4CHS:1F RIGHTS (BZS; ien 

$(13) THEN PRINT#2 X; πχ UC Sad) 
1450 NEXT 19. 

‘1469 οδό 


1470. PRINT@290, SPACES (80) ; 


189. 
(1499. U ee pats KEN 


1599 OLOSE: CALL 618971: CLEAR 58g. HIMEM:M 


ENU: 

1510." ee ας BEBELA Word AK: 
1529,  INLS-9:IF I$2LEN(OLS) - T/THEN NL$--1: 
ος Οτο 1549 

1539. I8-IS41: CHS-RuS STR (res HDS (CLS, 
Το 

/154g RETURN 


1550 ' ΧΧΧ. Decode Hex and Control Va Ad 


ters "w* 


1569 NL&-:TIF Y&3LEN (CLA) - 1 THEN Ber 


CL$-" GOTO 1610. 

1579 ΤΑ ΣΤΗ ΤΡ INSTR("/&." MIDS (CLS Te, 
;1))59 THEN CH$-MIDS(CLS,I$,1):GOTO 1619 
15866 IF IS»LEN(CLS)-L THEN NL&--1:CLS-RI 
GHT$(CL$,2):G0T0 1619 

11599. HXS-MIDS(CLS, 13,2) : CHS-CHRS ( CINSTR( 
(19123456789 ABCDEFE" , LEFTS (HX$ ,1))-1) #1641 
/ RSTR(*9123456789ABCDEF" RIGHTS CAS ,1)) 1 
) H Hi 
(1699 Ts=I%s+1l 
1616 RETURN 

1620 '' *** Error Codes *** 

1639. SOUND 5909, 10:SOUND 8099,19: SOUND 5 
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(999,19 


1840 PRINT@299, “ABORT! 


1688; ΤΕ; BIN STA THEN NN$-LLt*1: coro 19: 


164g PRINTQ220- /SKLEN(ERS (ER&)) , ERG (ERS) 


1659 RETURN 


| 1/1669" κκ Get Code Line www 
/1399 IF LL&-U THEN ON INSTR("ALSR"; ns Ht 


1679 PRINTQ173,"";:PRINT USING "Scan Tini. 


6 WU UNNS 


1689 IF NN$--1 THEN PRINTQ173,"Scan any 
line":GOTO 1799 


1699 SOUND 599,5 


1799 INPUT&1,ILS:ER$-0 

1719 FOR Τε-1 TO LEN(ILS) 

1720 IF MID$(IL$,1%,1)="!" THEN MIDS(1LS 
WESS qer jin 

1739 NEXT Tš 

1749 IF LEN(ILS)«»1 AND LERCILS) «721 THE. 


ΗΝ. ERS=4 RETURN 


1759 IF LEN(ILS)-1 THEN LL&-0:RETURN 
1769 LL$2LEFTS(IL$,2):LL&-(INSTR("012345: 
6789ABCDEFGHIJKLMNOPORSTUVWXYZ'",LEFTS(LL. 
$,1))-1)*36INSTR(!0123456789ABCDEFGHIJK: 
LMNOPQRSTUVWXYZ",RIGHTS(LLS,1))-1 


1778, RETURN 
1789. *** Open Program File *** 


1799 PNS-LEFTS(ILS$,6):ILS-RIGHTS(ILS, LEN 
(1L$)-6) 

1899 OPEN PN$ FOR OUTPUT AS #2 

1819 RETURN 

1820 ' *** Abort *** 

1830 BEEP:BEEP:BEEP 

Are you sure?"; 
1859 INPUT*1,AN$ 


71860 IF INSTR("YN",AN$)-Q9 THEN BEEP:PRIN 
//TQ0251,"Scan 'YES' or 'NO'":GOTO 1859 


1870 PRINT@200 SPACES (80) ; 


3880. IF ANS-"Y" THEN CLOSE; KILL PNS 20 DO 


":GOTO 1499 ELSE GOTO 1289 


1899 ' *** Skip Line www 


1900 IF NN%=1l THEN ER$-—6:GOSUB 1620: GOTO. 
1289 

1910 BEEP: BEEP; BEEP 
1920 PRINT@210 "SKIP! 
1930 INPUT#1, ANS 
1940 IF INSTR("YN";ANS$)2Q THEN BEEP: PRIN 
TQ251,"Scan 'YES' or 'NO'":GOTO 1939 
1950 PRINTQ200, SPACES (89) ; 

1960 IF ANS-"Y" THEN NN$-NN$4l 

1979 GOTO. 1289 

1989 '" *** Stop & Save KrK 

1999 BEEP: BEEP: BEEP 

2000 PRINT@2G7 "STOP & SAVE! Axe you ‘sur 
GN 

2010 INPÜTSLI,ANS 

2020 IF INSTR("YN",AN$)-0 THEN. BEEP:PRIN 
10251,"Scan 'YES' or 'NO'":GOTO. 2010 
2030 PRINT@200 SPACES (89) ; 

2040 IF ANS="Y" THEN 1499 ELSE GOTO 1280 
29059 ' *** Resume. ww 

2060 IF NN$«21 THEN ER$-5:GOSUB 1620:GOT 


Are you sure?" 





0 1280 2129 ON ERROR GOTO 2149 
2979 PRINT@254, "Resume Mode"; 2130 OPEN PN$ FOR INPUT AS #2:GOTO 2179 
2980 NN&=1:GOSUB 1660 2146 RESUME 2150 | 


2999 IF LL&-0 THEN ER$-5 ELSE IF LL%—1 2150 CLOSE 42 

THEN ER%=1 2160 ER$-7:GOSUB 1629:GOTO 1279 

219g IF ER%>Ø THEN GOSUB 1629:GOTO 2060 2170 CLOSE 42:0PEN PN$ FOR APPEND AS #2 
2116 ΡΝΟ-ΜΙΡΦ (11,9, 3, ϐ) 2180 NN$--1:GOTO 1289 





RSM.DÜ (FROM PAGE 91) 


x. III! 
2 [TAA ELM 
3 III! 
4 QAUM 
5 ΙΙΙ 
6 ΙΙΙ 
2 lIIlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
QNIN AARAU 
μμ, 
ιο [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ο αμ 
12 ΙΙΙ 
13 [ΙΙΙ ΙΙΙ 
14 ΤΙΜΗ 
35 MNOO INON O 
16 ΙΙΙ 
12 ΤΙΝ 
18 ΤΙΜΗ 
13 ΠΠ 
29 ΙΙΙ 
21 [ΙΙΙ 
22 ΙΙΙ 
23 ΙΙΙ 
24 DUONON IVONO N O UITNOOI 
25 [ΙΙΙ 


26 ΙΙΙ 
22 ΙΙΙ 
28 ΙΙΙ 
23 N a IN T O D O 
30 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
31 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
32 [ΙΙΙ 
33 ΙΙΙ 
34 [ΠΠ 
35 [ΙΙΙ 
36 ΙΙΙ 
32 ΙΙΙ 
38 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
39 ΙΙΙ 
40 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
41. ΙΙΙ 
μμ. 
43 ΙΙΙ 
44 {MONTANA AN 
45 ΤΙΝ 
“6 MUNMUN INNOMINAT I ON 
47 [AMANTE ON OON UOD AUAM 
48 TANIO OO EN DONNA 
43 ΙΙΙ 
5ο ΙΙΙ 
51 [ΤΙΝ 
52 ΙΙΙ 
53 ΤΙΝ 
μμ μι, 
55 [ΙΙΙ 
56 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
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52 ΙΙΙ 
58 [ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ} 
59 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIN 
6ο [MARINA 
61 [ΙΙΙ 
62 ΙΙΙ] 
83 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
84 ΤΙΝ 
es ΙΙΙ 
66 IllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
6? lIIIIIiIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
68 MIRANTUR LM 
μμ. 
29 ΙΙΙ 
2. ΙΙΙ 
22 ΙΙΙ 
23 ΙΙΙ 
24 ΗΝ 
25 III!!! 
26 ΤΙ 
22 ΙΙΙ 
28 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
23 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
89 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ο μι. 
82 [ΙΙΙ 
83 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
84 [ΙΙΙ 
85 QAM ULM 
86 ΙΙΙ 
8? [ΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ11 
88 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
μα, 
5ο ΙΙΙ 
ο μμ. 
92 ΙΙΙ 
93 ΙΙΙ 
94 [ΙΙΙ 
η μμ 
6 [ΙΙΙ 
9; [MARINA AU μμ. 
58 [ΙΙΙ 
99 ΤΙΝ 
199 [[11ΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠ/ΠΠΠΠΠΠΠΠΠΙΠΠΠΠΙΠΠΠΠ[ΠΠΠ} 
1ο [ΙΙΙ 
192 [ΙΙΙ 
103 TAMNO OLA 
1.04 ΙΙΙ 
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1ο5 ΙΙΙ 
196 ΙΙΙ 
ιο; ΙΙΙ 
auces NANNU NOROI OON 
109 ΙΒ 
119 ΙΙΙ 
111 QAAE LEAN 
112 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
113 APTN 
114 ΙΙΙ 
115 ΤΙΝ 
116 [ΠΠΠΠΙΠΠΠΠΠΠΠΙΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠΠΙΠΠΠΠΠΠΙ 
112 {AMIDE NO 
118 [AMINA AA 
119 JANINE 
120 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
121 ΙΙΙ 
122 III 
123 JMNM 
124 [III 
125 III 
126 III 
122 ΙΙΙ 
128 ΤΙ 
129 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIII 
130 | lilii 
131 [IIIIIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIII 
132 ΙΙΙ 
133 ΙΙΙ 
134 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
135 ΠΤΙ 
136 MIMI 
137 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ο OUTONO TTT 
139 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
140 ITAL 
141 ΤΙΝ 
142 III 
143 ΤΠ 
144 ΙΙΙ 
145 [MANIERA ELM 
146 [[ΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ}{11}|1|11}}|} 
142 ΙΙΙ 
148 [ΙΙΙ 
149 ΤΗΝ 
150 ΙΙΙ 
151 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
152 [MUNIRI 


m + 




















153 ||lIlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
154 ΙΙΙ 
155 ΤΙΝ 
156 ΙΛ 
152 |lIIIIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
158 ΙΙΙ 
159 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
160 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
161 ΙΙΙ 
162 ΙΙΙ 
163 ΙΙΙ 
164 [ΠΠ 
165 ΙΙΙ 
xe. [ΙΙΙ 
16? ΙΙΙ 
168 ΙΙΙ 
169 ||IIIIIIIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
129 {MMM YONI L 
121 [ΙΙΙ 
122 ΙΙΙ 
123 {MIDNA A 
124 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
125 DONUNA O ON 
126 ΙΙΙ 
Ea UN O A M a A N I D 
178 ΤΙΝ 
129 ΙΙΙ 
16ο {MINIVAN UNAM DN M 
181 [MANNA TOL IN AM 
182 ΜΠΙΛΙ 
183 ΙΙΙ 
184 |AIM IAN O O 
185 TNOUN ON N O O 
186 ΙΙΙ 
16; ΙΙΙ 
188 [ΠΠΠΠΙΠΠΙΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ111 
159 JUANA EIU AM 
190 ΙΙΙ 
191 [ARIAL UNAM 
192 ΙΙΙ 
193 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
194 ΙΙΙ 
195 lllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 






































196 ΙΙΙ 
192? ΙΙΙ 
138 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
199 ΙΙΙ 
200 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
201 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
292 l|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
293 I|IIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
294 l|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
205 [|lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
296 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
20? TMAM 
208 ΙΙΙ 
299 [III 
210 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
211 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
212 NOUNOU UN T 
213 I|II!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIII 
214 ||lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
215 ΙΙΙ 
216 ||IIIIIIIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
212 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
218 ΙΙΙ 
219 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
220 ΙΙΙ 
221 MINNIE T 
222 ΙΙΙ 
223 ΙΙΙ 
224 ΙΙΙ 
225 ΙΙΙ 
226 ΙΙΙ 
227 ΙΙΙ 
228 [ΙΙΙ 
229 ΙΙΙ 
230 MAWANI OTONO N 
231 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
232 ΙΙΙ 
233 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
234 [ΙΙΙ 
235 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIINIIIIIIIIIIIIII 
236 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
232 ΙΙΙ 
238 ΙΙΙ 





























MA MAN [1111 


Abort Skip Line Stop & Save 








ΙΙΙ 


Resume 


| 
[1111 MM | 


Yes 


No 





June 1986 


PCM 123 


124 


239 ΙΙΙ 
240 ΙΙΙ 
241 [ARRA HL 
242 ΙΙΙ 
243 ΙΙΙ 
244 ΙΙΙ 
245 ΙΙΙ 
246 ΙΙΙ 
242 ΙΙΙ 
248 ΙΙΙ 
249 ΙΙΙ 
250 ΙΙΙ 
251 MNONO ON INOUN I 
252 ΙΙΙ 
253 ΙΙΙ 
254 ΙΙΙ 
255 [[1ΠΠΠΙΠΠΠΙΠΠΠΠΠΠΙΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΙΠΠΙΠΠΠΠΠΙ 
256 [||ΠΠΠΠΠΠΠΠΠΠΠΠΙΙΠΠΠΙΙΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΙΙΠΙΙΙ 
252 MANNA NAH NL 
258 ΙΙΙ 
253 MANONO IIN 
260 MANANI OUR AARAU 
261 ΙΙΙ 
262 ΙΙΙ 
263 ΙΙΙ 
264 ΙΙΙ 
265 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
266 MINUTO OC U 
267 ARUM 
268 ΙΙΙ 
269 ΙΙΙ 
220 ΙΤ 
221 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
222 ΙΙΙ 
223 ΙΙΙ 
224 MOLINA 
225 IMINO VM T 
226 MINUTIAE 
222 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIII 
228 ΙΙΙ 
273 ΙΙΙ 
280 [ΙΙΙ 
281 [ΙΤ 
282 ΙΙΙ 
283 ΙΙΙ 
284 ΙΙΙ 
285 ΙΙΙ 
286 ΙΙΙ 
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282 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
288 ΙΙΙ 
285 MMMM IA 
290 [WANDA 
291 MINN AAO 
292 ΙΙΙ 
233 ΙΙΙ 
294 MINOT INTR 
235 [MANERA AUN 
296 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
292 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
238 [|]1ΐΠ|ΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΙΙΠΠΠΠΠΠΙΠΠΠΙΠΠΙΙ 
299 ΙΙΙ 
300 ΙΙΙ 
391 ΙΙΙ 
302 ΙΛ 
303 ΙΙΙ 
304 [ΙΙΙ 
305 ΙΙΙ 
306 [ΙΙΙ 
302 IllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
398 MINNA AU 
309 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
310 III! 
311 MANARE 
312 [INIM AVIAN 
313 MTNA NEA M 
314 ΠΙΕΙ 
315 [ΙΙΙ 
316 ΙΙΙ 
317 ΙΙΙ 
318 ΙΙΙ 
319 ΙΙΙ 
320 ΙΙΙ 
ο μμ. 
322 ΙΙΙ 
323 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
324 MINONO LINNUN N OTN 
325 ANODOA TN IO 
326 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
327 ΙΙΙ 
328 [ΙΙΙ 
329 ΙΙΙ 
330 ΙΙΙ 
331 ANNONA 
332 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
333 ΙΙΙ 
334 ΙΙΙ 








335 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
336 ΙΙΙ 
332 IllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
338 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
339 ΙΒ 
340 [III 
341 [ΙΙΙ 
342 III! 
343 lIlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
344 [ΙΙΙ 
345 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
346 III! 
342 ΙΙΙ 
348 III 
343 [ΠΠ 
350 [ΙΙΙ 
351 ΙΙΙ 
352 MANNI M 
353 ΙΙΙ 
354 [III 
355 [ΙΙΙ 
356 III 
352 ΙΙΙ 
358 ΙΙΙ 
359 ΙΙΙ 
360 ΙΙΙ 
361 ΙΙΙ 
362 ΙΙΙ 
363 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
364 ΙΙΙ 
365 ΙΙΙ 
366 ΙΙΙ 
367 ΙΙΙ 
368 ΙΙΙ 
369 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
320 MAINTIEN 
321 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
322 IllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
323 IIIIIIIIII:IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
324 ΙΙΙ 
325 ΙΙΙ 
376 ΙΙΙ 
322 ΙΙΙ 





+ 

















III ΙΙΙ ΙΙ 


Rbort Skip Line Stop & Save 


328 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
379 ΙΙΙ 
389 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
381 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
382 NUUAM 
383 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
384 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
385 [[ΠΠΠΠΠΙΙΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΙΠΠΠ/ΠΠΠΠΠΠΠ1|} 
386 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
382 lllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
388 MUNMUN MUDO OUO OO O 
389 ΙΙΙ 
390 [|lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
391 ΙΙΙ 
392 lIlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
393 NATURALEM 
394 MMDAN NNOO I N N 
395 [[ΠΠΙΠΠΙΠΠΙΠΙΠΙΙΙΙΠΠΠΠΠΙΠΙΠΠΠΙΠΠΠΠΠΠΠΠΠ 
396 TMOA ANM OOT NUM 
332 ΙΙΙ 
398 ΙΙΙ 
399 ΙΙΙ 
«eo ΙΙΙ 
401 [ΠΠΠΠΠΙΙΙΙΙΠΠΠΠΙΠΠΠΠΠΠΙΠΠΠΠΠΠΙΠΠΠΠΠΠΙΙΠΠΙ 
402 [IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
403 ΙΙΙ 
404 ||lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
405 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
406 [MANIL NR NM 
407 NUMINA UM 
408 l|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
405 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
μμ. 
411 NARNIA M 
412 TANDON VOUN O A I 
413 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
414 (OMIM O O 
415 llIIIII:IIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIINIIIIIII 
416 ΙΙΙ 
412 (ONION OMOEA 
41. ΙΙΙ 
419 [ΠΠΠΠΠΠΠΙΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ]ΠΠΠΠΠΙΠΠΙ}} 
420 ΙΙΙ 





MM AM ΙΙΙ 
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421 NONON 
422 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
423 ΙΙΙ 
424 MUTANT UO ON O 
425 UD IO A I I RUIN 
426 ΙΙΙ 
422 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
428 ANOUN AINO T O 
429 NOOO AON AAA 
430 ΙΙΙ 
431 [ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΙΠΠΠΠ{ΠΠΠΙΠΠΠΙ 
432 III! 
433 ΙΒ 
434 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
435 ΙΙΙ 
436 ΙΙΙ 
432 ΙΙΙ 
438 [ΙΙΙ 
433 ANUNUA AN OD ONINO A 
440 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
441 ΙΙΙ 
442 ΙΙΙ 
443 ΙΙΙ 
444 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIN 
485 ANOUN UNNAD I O 
446 ΙΙΙ 
422 IllIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIIII 
448 ΤΙΜΗ 
μ.μ. 
450 ΙΙΙ 
451 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
452 ΙΙΙ 
453 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
454 ANNONO OUUU OO OO N 
455 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
456 ANOUN OOO O 
452 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
458 ΙΒ 
459 III! 
460 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
461 ΙΙΙ 
462 ANODONTO NO 
463 ΙΙΙ 
ο μμ, 
μμ, 
466 ΙΙΙ 
αμ μμ. 
468 [ΙΙΙ 
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465 TANAUAN ONMO IU M 
“2ο MANONO NOTON NUNT 
421 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
422 ΙΒΜ 
423 ΙΙΙ 
424 ΙΙΙ 
475 [IlIII:!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
426 ΙΙΙ 
ezean a A TA T 
428 ΙΙΙ 
429 ANOOI N OO I O O 
480 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
481 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
482 ΙΙΙ 
483 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
484 AMMAN NON 
«85 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
486 [|ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΙΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠ} 
482 MANONOOD OOOO I N 
488 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
489 ΙΙΙ 
490 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
491 ΙΙΙ 
492 ΙΙΙ 
493 [ΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΙΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΙ 
494 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
455 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
496 ΙΙΙ 
492 ANONN OOTD TUON I O O 
498 [IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
μυ... 
590 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
501 ΙΙΙ 
592 MNNM KUNN 
503 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
504 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
505 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
506 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
5ο2 (MARIUM 
598 [ΙΙΙ 
se [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIII 
510 ΙΙΙ 
511 MATIN AM 
512 ΙΙΙ 
513 ΙΙΙ 
514 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
515 (MATUTINA HANE 
516 IlIIIII:IIIIIITIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


512 OOOI ONN OON M 
518 ||lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
519 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
520 [ΙΙΙ 
521 [ΜΙΝΙ 
522 ΙΙΙ 
523 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
524 ΙΒ 
525 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
526 ΙΙΙ 
527 ΙΙΙ 
528 ΙΙΙ 
529 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
530 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIIIIIIIIIIIII 
531 ΙΙΙ 
532 ΙΙΙ 
533 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
534 ||IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
535 ΙΙΙ 
536 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
532 AMDI DOD UUA ONO 
538 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
539 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
540 ΙΙΙ 
541 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIW 
542 ΙΙΙ 
543 ΙΙΙ 
544 ΙΙΙ 
545 ΙΙΙ 
546 ΙΙΙ 
542 ΙΙΙ 
548 ΙΙΙ 
549 ΙΙΙ 
55ο ΙΙΙ 
551 ΙΙΙ 
552 ΙΙΙ 
553 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
554 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
555 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
556 ΛΙΠΗ 
552 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
558 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
559 IllIIIIIIIIIIIIIIIIIIIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIII 


m 





«D 








ΝΙΙΝ ΙΙΙ III 
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560 ΙΙΙ 
561 ΙΙΙ 
562 NNOD OO 
563 ΙΙΙ 
564 [ΙΙΙ 
565 TUNNO NOI ATOA ON 
566 ΙΙΙ 
56? llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
558 ΙΙΙ 
559 ΙΙΙ 
520 |AIM ALMANAC 
521 ΙΙΙ 
522 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
523 ΙΙΙ 
524 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
525 ΙΙΙ 
526 ΙΙΙ 
522 ΙΙΙ 
528 ΙΙΙ 
579 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
58ο ΙΙΙ 
581 ΙΙΙ 
582 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
583 MM NOO 
584 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
585 ΙΙΙ 
586 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
582 ΙΙΙ AM MAA L 
588 I|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
589 ΙΙΙ 
590 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
591 ΙΙΙ 
592 ΙΙΙ 
593 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
594 ΙΙΙ 
595 OMNA IN N 
596 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
557 ΙΙΙ 
558 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
539 ΙΙΙ 
ee [||ΠΠΠΠΠΠΠΠΠΠΙΠΠΠΠΙΙΠ!ΠΠΠΠΠΠΠΠΠΠ]ΠΠΠΠΠΠΠΠΠ11|| 
601 ΙΙΙ 
602 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 





ΙΙ MM ΙΙΙ 
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128 


ο η μυ 
ea UNAM 
3 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
μμ μμ, 
S IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIII 
S ANONO UNIOON O UNN MOO OT 
7 ΙΠΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠΠ/ΠΠΠΠΠΠΠΠ|} 
μμ. 
μμ. 
ιο [|IIIIIIIIIIIIIIIIiIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIIIIIII 
ο μμ O 
12 ΜΙΝΙ 
13 [IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ea n LIDU ML AN U Mt A D 
35 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
16 MUNDY A N 
12 lllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
μμ. 
19 NARNIA EUM 
20 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
21 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
22 ΙΙΙ 
23 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
24 MO ANDOM O ON O O OT 
25 ΙΙΙ 
26 lllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
27 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
28 MMIII AN O O 
23 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
JAN LU 
31 [MANUAL 
32 ANONO AI O O 
33 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
34 [NUIT A 
35 [ΙΙΙ 
36 ΙΙΙ ΙΙΙ 
32 ΙΙΙ 
38 ΙΙΙ 
39 MNONO NOOI A 
“ο ANDON OO ORAO DAN 
41 |lIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITOIIIIIIIIIII 
ezan A M AMAA ALUL 
«3 JENNA AQUAM M 
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COLOR.BA (FROM PAGE 100) 


lll! 
μμ. 
3 III 
ο μμ, 
5 ΤΙΜΗ 
6 ΙΙΙ 
ως μα. 
μι. 
ο μι 
19 [ΙΙΙ 
ο μι. 
12 ΙΙΙ 
13 ΙΙΙ 
μμ. 
15 ΙΙΙ 
36 III 
12 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
N N L N 
19 ΤΙΝ 
20 [ΙΙΙ 
21 ΙΙΙ 
22 ΙΙΙ 
23 ΙΙΙ 
24 ΙΙΙ 
25 ΙΙΙ 
26 ΙΙΙ 
ο μμ, 
28 ΙΙΙ 
23 ΙΙΙ 
30 [ΙΙΙ 
31 ΠΙΙΠΙΙΙΙΙΙΙΠΙΙΙΙΙΜΙΙ 
32 ΙΒ 
33 [ΙΙΙ 
34 [ΙΙΙ 
35 |l 
36 ANDOIN UIO O OO 
32 ll! 
38 ΙΙΙ 
39 ΤΙΝ 
40 ΤΙΝ 
μι, 
42. ΙΙΙ 
43 ΙΙΙ 

















44 MONON UM 
“5 ΤΙΝ 
“6 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
42 MAUOA 
48 [ΙΙΙ 
“5 ΙΙΙ 
MINIM MINN NNN AN A 
51 MAIL 
52 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
53 ΙΙΙ 
54 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
αμ. 
56 ΙΙΙ 
52 ΙΙΙ 
58 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
μμ. 
60 N O TN AN I U UAL D MO 
ο μμ, 
62 [[ΠΠΠΠΠΠΙΙΠΠΙΠΠΠΠΙΠΠΠΠΠΠΙΠΠΠΠΠΠΠΠΠΠΠΠ/ΠΠΠΠΠΠΠΠ1 
63 MMOD UIO N 
ο NA M 
65 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ος lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
6; ANDUINA UUN U 
68 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ο O  ἡ. 
29 ΙΙΙ 
21 ΙΙΙ 
22 ΙΙΙ 
23 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
24 [ΙΙΙ 
A NTN IM 
26 ΙΙΙ 
a A aN N L 
28 ΙΙΙ 
23 MANUO ONUN UTO I O O U 
8ο [ΙΙΙ 
81 [ΙΙΙ 
82 ΙΙΙ 
83 [lIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
84 [ΙΙΙ 
8s IIIIIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
86 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIINIIIIIIIIIIIII 


m A 











ΙΙΙ LLL ΙΙ 


Abort Skip Line Stop & Save 


82? llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
88 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
99 MIOUN IOUO O 
90 ΙΙΙ 
αι IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
92 ΙΙΙ 
33 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
94 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
η μη, 
E LIe Η 
9; ONION 
98 MIRI NN HAM 
μμ. 
19ο ΙΙΙ 
101 ΙΙΙ 
102 IIIIIIIIIIIIIIIIIIIIIIIIIII:IIIIIIIIIIIIIIIIIIIIIIIIIIII 
103 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
104 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
105 ΙΙΙ 
106 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIINII 
192 ΙΙΙ 
198 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
109 ΙΙΙ 
119 ΙΙΙ 
111 (MANI 
112 ΙΙΙ 
113 TAMIN OA O 
114 OMAN UM 
115 ANAON O ON 
116 AN OIl 
117 ΤΝ 
118 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
119 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
120 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
μα, 
122 MNNOO UN AN O O 
123 III 
124 III: 
125 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
126 ADUNO UUA 
122 ΙΙΙ 
128 MONONA 
123 ΙΒ 


ΙΙΙ ΙΙ ΙΙΙ 
Resume Yes No 








June 1986 PCM 129 





III The Rackseller 


ALABAMA 











KENTUCKY OKLAHOMA 
agram oan ae o: EP TOW Goodwin Electronics Oklahoma 
Greenville. M&B Electronics/Radio Shack Possct Folsott, Inc ὦ d end We SITUE 
Madison Madison Books LOUISIANA : aaa Fifth A News 
ARKANSAS Crowley Acadiana News ib ber Déc! 
Fayetville Vaughn Electronics/Radio Shack Gretna Computer Supply Store Bie septic " Pio Electronics 
ARIZONA dell Radio Shack 
Philadelphia Newsy 
Phoenix Cama Pro MASSACHUSETTS Phoenixville Stevens’ Radio Shack 
sierra Villa Lvecafon't Boc Littleton Computer Plus Wind Gop Micro World 
5 Ingston’s Books Marlboro Radio Shack RHODE I: 
woe empa ray. MICHIGAN ρω Kelly’s Variety 
icson \dersor . 
z cam a Rochester Rochester Book Center TENNESSEE 
Citrus Heights Software Plus Staring Heights rog piiki Ake Knoxville Anderson News Co. 
Elk Grove Micro Mainframe Wyoming δέος Memphis Computer Center 
Half Moon Bay — Strawflower Electronics : Nashville Mosko's Book Store 
Livermore Software Galeria MISSOURI j Smyma Delker Electronics, Inc. 
North eee Digital Enterprises, inc. TEXAS 
Hollywood Levity Distributors , Louis Software Center Bay City Impulse Computers 
Santa Rosa Sawyer's News NEBRASKA Ft, Worth ARA temone 
Sunnyvale Computer Literacy Lincoln Hobby Town VIRGINIA 
COLORADO NEW HAMPSHIRE Alexandria Al Book it 
Salida Radio Shock West Lebanon Vetham News Corp. Nortolk 10 CONTATO Arp 
DELAWARE NEW JERSEY Wytheville Wytheville Electronics 
Middletown Delmar Co. Clinton Micro World II WASHINGTON 
Wilmington Normar Inc.—The Smoke Shop Hackensack Total Circulation Service Kennewick Satellite TV Specialists 
FLORIDA Pennsville Dave's Electronic Radio Shack WEST VIRGINIA 
Boca Raton Software, Software, Inc. NEW MEXICO Lesage Ploneer Technology 
Davie Software Plus More Alamogardo New Horlzons Computer Systems WISCONSIN 
Ft. Lauderdale Software Connection Albuquerque News and Bookstore 
N Miami P one Y Ladysmith Electronics, Etc. 
Beach Almar Bookstore ei ο “ΘΠ ον Bod 
Orlando Book Mania ‘recone On Line: Computer Access Center NUNA 
Panama City Computer Systems Group Hudson Falls GA West & Co Cordoba Informatica Y Telecomunicaciones 
Poona ΑΡΘΡΟ News Co. NORTH CAROLINA ' CANADA: 
allahassee d N š 
8 K ESENES Cay News Center in Cary Village ALBERTA 
EORGI - Sylva Total Data Systems Calgary Rainbow Software Services 
Atlanta Guild News Agency NORTH DAKOTA Edmonton CMD Micro 
ILLINOIS Fargo Computer Associates Kelly Software Distributors 
Chicago oe e OHIO BRITISH COLUMBIA 
foci " 
“λό ἑοῖς liia : Blanchester JR Computer Control Sidney Sidney Electronics 
Kroch's & Brentano's Cincinnati Cinsoft NOVA SCOTIA 
Wabash Ave. Kenton TW. Hogan & Assoc., Inc. Halifax Atlantic News 
Prairie News Agency Mount Orab Mount Orab Radio Shack QUEBEC 
Oakbrook Kroch's & Brentano's Toledo Leo's LaSalle Messageries De Presse Benjamin 
INDIANA 
Highland Computer Health Consultants 
Scottsburg Radio Shack of Scottsburg 
"Ames Myers V & Stereo Repair Also available at these selected bookstores: B. Dalton, Pickwick Books, Encore Books, 
νά Barnes & Noble, Little Professors, Tower Book & Records, Kroch's & Brentano's, and 
Wichita Loyd's Radio Community Newscenters. 
. TLM SYSTEMS. ——— — 95€ 
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DOM DATA PRODUCTS — ee ette i T 
DEW COMPUTER: GENTER UU U e u... 2 
ENVISION DESIGNS — — ————— —— a uu 112 
FEDERAL HILL SOFTWARE 103 
PORT WORTH COMPUTERY U LIÉ es 
HARD DRIVE SPECIALIST te eG 
LESCRIPT WORD PROCESSING SYSTEMS 103 
LONESTAR SOFTWARE ce 
ΜΩΡΑ. @ÀQ L UU ee hG 
MARK DATA 118 
MARY MAC INDUSTRIES: UU  — — lI D πο σι 
MICRO DESIGNS... | λες 
MICRO MAINFRAME 99 
NOCONA EDECTRONICS U U... 108 
INCOR EGE SOD WAI ce — ———————à6 
OEDWARE 106 
OWL-SERVICES 106 
PCM BACK ISSUES 104 
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PERRY COMPUTERS. un uu. ea e. ga 
PERSONICS 114 
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SUPPORT GROUP. — |. c E Ier dan 
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RADIO SHACK 18, 58 
ROSS COMPUTER SERVICES 16 
SMALL COMUTER CO. INC, 29 
SOFTWARE SUPPORT 12 
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Shackleford, Nolan, Kim Vincent 

Davis, Gregg and Associates Advertising Representative 
Cindy J. Shackleford, president The Falsoft Building 

12110 Meridian South, Suite 5 — 9509 U.S. Highway 42 

P.O. Box 73-578 P.O. Box 385 

Puyallup, WA 98373-0578 Prospect, KY 40059 


(206) 848-7766 (502) 228-4492 


Top-of-the-line: Open Access" 
NOW ONLY $395* 


OPEN ACCESS 
Comparison Chart 





Lotus 1*2:3 


Symphony "rrr rre 
[framework [κ] [e| [el Je [Jen ο | 
m LE eL pre m. 


Coomera 





Open Access has sold almost 50,000 copies overseas, and many more in 
the U.S. thanks to Radio Shack® With one of the most powerful 
Relational Databases around, and just about all the additional features 
you could want, it’s no wonder. Just the Goal Seeking feature 
in the Spreadsheet alone should make Open Access 
your customer's #1 choice. 

(We're even written in Il languages with exact file transfer.) 








Time Management 


Available through your exclusive Express Order Software System 
90-0114 Tandy2000 + 90-0247 Tandy1200 * 90-0437 Tandy1000 


The product's exceptional. The price extraordinary. Can you really afford to compromise any longer? 


= 
v 
roe SOFTWARE PRODUCTS INTERNATIONAL 


10240 Sorrento Valley Road ™ San Diego, CA 92121 


Open Access and $$ are registered trademarks of Software Products International, Inc; Lotus 1-2-3 and Symphony are registered trademarks of Lotus Development Corp.; 
Framework is a trademark of Ashton-Tate; Smart System is a registered trademark of Innovative Software; Tandy 1000/1200/2000 are trademarks of Radio Shack, a division of Tandy Corp. 


. All on one ROM. Truly the finest four programs , 
available for the Model 100 — guaranteed. - 
Hite it for 30 days. If you aren’t blown away by the 
___ excellence return it for a full refund. 


| - ‘The four best programs for the Model 

100 allon’one ROM. 32K of power with- 
out using any RAM for program stor- 
age. This is the PCSG Snap-In ROM 
that just presses easily into the little 
ROM socket in the compartment on the 
back: You access the four right foe the 
main menu like built-ins: 

Write. ROM — the. definitive HH 
processor for the Model 100. Function 
key. formatting or dot commands. 
Search and replace. Library feature — 
inserts words, phrases or whole docu- 


ments into text from just a code. MAP. 


lets you see a picture of your document. 
In: all there are 60 features and’ func- 


^ tions. No one can claim faster operation. 


FORM lets you create interactive forms 
]- with on-screen prompts that you can 


answer from the keyboard, Nothing else. 


- for the Model 100 compares with the 
features of Write" ROM. Exactly’ the 


same as the Write ROM sold as a single 
1j. program. Infoworld says it "makes the 
.'Sur- 


Model-100 a viable writing unit . . 


ἘΣ our highest expectations | "for ` 


quality and clarity." 


PICO magazine says "blows Multiplan 


right out of the socket" and Infoworld ` 
performance rated. as “excellent” and ` 


said "makes the Model 100 compute. ” 
Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 
140-150K on a desktop. Program gener- 
ating capability with no programming 
knowledge required. Variable column 
widths. Includes find and sort with func- 
tion key control. It’s fast, recalculates 
like lightning. No feature has been taken 
from the original, only new ones added. 

Database: This is a relational data 
base like no other. You can do every- 
thing from mailing lists to invoices. No 
complicated pseudo-coding, you create 
input Screens. as. simply as typing: into 
TEXT. You are not limited by size; you 
can have as large an input screen as you 


wish: Prints out reports or forms, get- 


ting information from as many files as 


1214) 351-0564. ° 


youlike. Complete máth between i 
| Total'interface with Lucid worksheets. 
‘Lucid Spreadsheet: This is the one ' 


. Outliner: Does: everything that Think- 
nk does ona PC but a whole lot better. 
Includes a Sort for your headlines: Lets 


you have headlines of up to 240 charac- |” 


ters. Has cloning, hoisting and sideways 


Scroll up to 250 characters, Like Lucid, 


ers. This i is the way to plan and organize ` 
your projects. ` i y 
_ Present. inis and | Write. ROM. à. 


As usual POSG sells the Super ROM n 


on a thirty day guarantee. If for any | 
reason. you are not ‘satisfied, ` ‘simply 
return it for à full refund. - 

We are excited about this product. 
Super ROM gives. the Model 100. the 
true power ofa desktop. No other multi- 
program’ ROM has software that com- 
pates. But don't take our word for it. We |. 
invite you to make that. comparison |. 
yourself. Priced at $199.95 on. Her In 
ROM. ` ` 


Got stuck with TIN das vid ΠΡ ài 


- We'll upgrade it for $150. 


PORTABLE COMPUTER SUFFORT GROUP | 


11035 Harry Hines Blvd.; #206, Dallas, TX 7 5229 
MC, Visa, American Express, Check, or C.O.D. 





